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LIBSSCREEN = Screen Management ibese -1984 8:1 AX-11 Bliss-32 V4.0-74 Pp 1 
. eats Pan eet Gt Pe 94s 
XTITLE "LIBSSCREEN = Screen Management’ 
MODULE LIBSSCREEN ( 
— = 'v04-000' ! File: SCREEN.B32 Edit: PLL1011 
= 


BEGIN 


lenatenrteeteneneetenennectenteenreetrnerettertenetnetnnnnnnntnntnenenernnets 
:* ‘ 

!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'* ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE A 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SU 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH 


* 
* 
« 
* 
“ 
* 
® 
# 
* 
* 

'® TRANSFERRED. * 
* 
* 
+ 
» 
2 
« 
* 
* 
* 
* 


AND COPIED 


USED 
E AND WITH THE 


po fofofololeleloloelolelelelelololo) 


ND 
CH 
S OR ANY OTHER 
‘ AVAILABLE TO ANY 


E 
E SOFTWARE IS HEREBY 


0 
0 '® 
0020 't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0021 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
S ¢ w CORPORATION. 
0024 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
85 2 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
oat 
a REP RNC id eA PA EE ANN REP a ODE TDR NO 
1 
0030 
0031 + 
Ones FACILITY: General Utility Library 
Boe ABSTRACT: 
0036 This module contains routines to Petters terminal graphics 
0037 functions on the logical device SYSSOUTPUT. The terminal type 
0038 is interrogated and saved on the first routine call and 
0039 determines the escape sequences to be sent to the terminal. 
0040 For unknown terminals and terminals without any gra hic 
0041 functions (LA36), an appropriate sequence is sent when 
49h 4 necessary (carriage return instead of SET_CURSCR, 


a a kk te a ek dd dd od td dd dd dd dd I I IOOOO 


meme . 


4 
D044 ENVIRONMENT: User mode, Shared Library routines. 
S94 AUTHOR: R. Reichert, CREATION DATE: 25-AUG-1982 
Be8 MODIFIED BY: 
04 
050 1-001 - Original. 
051 This module is ba $4 on SCRPKG.MAR, version V03-001, 
O36 goteg 13-April-1982. 
5 RKR 25-AUG-1982 
054 1-002 - Use VMS optcals to point to require files. PLL 24-Jan-1983 
055 1-005 = Don't check the return status from FILL_MAP, to remain 
528 compatible with the original macro code. tt Novena 76s 
5 1-004 = In FILL_MAP, accept end_index equal to scr$l_area. PLL 35-Feb-1983 


LJOSSEREEN LIBSSCREEN = Screen Management 1 1h-Sep-1984 9: gf: 18 Ore teetarts thle’ 


; 8 83 1! 1-005 - LIBVERASE at IN » LIBSERASE_PAGE, and LIBSSET eSCROLL sh uid treat ; 
: 9 14 a single ful l argument as no arguments pess§¢.. -Feb-1 ; 
; & 60 1! 1- $ - Screwed up the Last edis - try 9080" LL : 
a: 61 1! 1- = Correct INVCHA orcer - it should be IVCHAN. PLE ““ -May-1983 : 
: ? bo¢ ! ; 1-008 = IVCHAN sare 03. "t exi it3, Change back to INVCHA to allow system to build ; 
; «664 064 1 ! 1-009 = In SCRSPUT purer.’ change call to SCRS$PUT =fCREEN fe o ovrayt. Try ; 
; 65 065 1! again to eliminate INVCHA error message. : 
; © Bo8 1 ! 1-010 = To prevent an access violation, make sure thee. macro SS ests veg : 
3; «667 0067 1! doesn't try to move a negative number of bytes. T-19 : 
: 8668 Bees 1 ! 1-011 = When bufferi ng is turned off, make cure the iets A, the TCB is ; 
: 9 $9? 1! returned to the ‘ 
3 0 0070 1! output isn’t truncated. PLL 1 ; 
Fees 0071 1! : 
ee 0072 1 


non=buf fered. tength -3883 subsequent non-buf fered 


The following routine was ggogtotety commented out in the 


original Macro version, SCRPK Included here only for 
historical reasons. 


s 
SCRSMOVE _CURSOR, ! Move Cugsor to Relative Location 


’ Internally used routines 


SCRSSGET_TYPE_R3 : GET TYPE LINK. ! Get device type 
SCRS$FOREIGN, 'F 9 


: Local subroutines and functions 


oreign Terminal Handler 


DONO US WN —OVOONOUSWN Oo 
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LIBSSCREEN LIBSSCREEN = Screen Management 1be5e -1984 02:28:1 AX-11 Bliss-32 V4.0-74 P 

VOee000 Declarations . 12788-1382 ¢: 4:4 VMSLIB SRE ISCREEN. O32 04 ot (23 

5 73° 1 &SBTTL ‘Declarations’ $ 
. fe 1 i suitcnes 
ewe i gamers : 
: 79 0078 1! : 
: 5° 0080 : LINKAGES: : 
Be a8 NONE : 
> BG a 1 | INCLUDE FILES: : 
PB oo ee ; 
: 87 0086 1 REQUIRE ‘SRC$:SCRPROLOG'; ! defines psects, macros, & ; 
; oS B14 1 ! toratnel defs ; 
; 34 03? : REQUIRE "LIBS: STRLNK'; ! JSB Linkages for STR$ routines 3 
> 94 48 1 i TABLE OF CONTENTS: ‘ : 
ih fT : 
: 34 0331 FORWARD ROUTINE : 
; a8 0358 : ! The LIB$ entry points ; 
: 98 0355 1 LIBSERASE_LINE, ! Erase Line from Screen ; 
; WW 0356 1 LIBSERASE PAGE, ! Erase Page from Screen F 
: 100 0357 1 LIBSPUT_BOFFER, ' Put Current Buffer to Screen or to Prev. Buffer : 
3 10) 0358 1 LIBSPUT_LI ! Put Text to Screen in Line Mode 3 
: 108 0359 1 LIBSPUT~SCREEN, i Put Text to Screen ; 
; 0360 1 LIBSSET_CURSOR, ! Set Cursor to Character Position on Screen : 
; Ve Bee) : LIBSSET_SCROLL, ! Set Scrolling Region 3 
; Hi] 0368 ! ! The SCR$ entry points : 
: 108 365 1 SCRSDOWN_SCROLL, ! Down Scroll, Move Cursor up One Line : 
: 109 366 1 SCRSERASE_LINE, ' Erase Line ; 
ee 367 1 SCRSERASE PAGE, ' Erase Page 3 
3 11 368 1 SCRSPUT_BO ° ! Put Current Buffer to Screen or Previous Buffer ; 
3; V1 369 1 SCRSPUT_LIN ! Put Text to Screen in Line Mode : 
: 11 370 1 SCRSPUT~ SCREEN, i Put Text to Screen F 
ee ee SCRSSET_BUFFER, ! Set/Clear Buffer Mode : 
3; 11 § 1 SCRSSET_CURSOR, ' Set Cursor to Character Position on Screen : 
> ty 1 SCRSSET_SCROLL, ! Establish Scrolling Region 3 
; i} : ! SCRSUP_SCROLL, ! Up Scroll, Move Cursor Down One Line 3 
; 1 376 ; 
cy 1 ; 
/ 1 3 
ig qj ; 
1 ; 
| j 1 3 
care 1 é 
2S 1 é 
s 7 1 : 
s 4 1 3 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 4 
Von 000 Sg poe 3 eli . 1o=88=138e 96:98:18 VMSLIB-SREISCREEN. 83044 ° (2) 
3 Va) 1 DO_ATTR ' Output simulated bolding and underlining. $ 
2% § : 1 FICL_MAP, } Fit = with seer tt ied skarantes . : 
eh 1 OUTPOT ! Write string to terminal ; 
: 134 91 1 PUT _MAP i Output virtual screen map ; 
: 135 3 1 RMS~OUTPUT, i Write a string via RMS ; 
; 41356 1 SET CURSOR, ' Create set cursor s quence ; 
3 : ‘ Be ! TRIMMED_LENGTH; ! Calc. Length of string without trailing blanks : 
: 139 96 1 !4 : 
: 140 0 39 1 ! The following routine entry point names are defined as alias for : 
> (141 0398 1 ! routines defined above. They are defined via : 
; 136 8 99 1 ! GLOBAL BIND ROUTINE LIBSxxx = SCR$xxx declarations. : 
a eae : 
> «(145 0108 1 ! LIBSDOWN SCROLL = SCRSDOWN_SCROLL ! Down scroll, move cursor up 1 Line ‘ 
; 146 0405 1 ! LIBSSET_BUFFER = SCRSSET BUFFER |! Set or Clear Screen Buffer Mode : 
3 1$f rte } ! LIBSUP_SCROLL = SCRSUP_SCROLL ! Up scroll, move cursor down 1 Line : 
3: 149 0406 1 !+ ; 
; 150 0407 1! The Fei towing entry point is obsolete, but is still present in F 
3 13) et ! SCRVECTOR. So it's defined here to keep the Linker happy. : 
; 138 0410 1 ! SCRSERASE = SCRSERASE_PAGE 3 
“oe bets 1 $ 
3s 155 ra | 1! ; 
: 138 041 1 ! MACROS: : 
oe 0414 1! 3 
; «4158 0415 1 : 
: 159 0416 1! : 
: 160 0417 1 ! EQUATED SYMBOLS: é 
3; 161 0418 1! F 
3 166 0419 1 3 
3; (6 0420 1! 
> 164 0421 1 ! FIELDS: 
: 165 04 ; . 3 
; 166 04 , NONE 
: 167 0424 1! 
3; 168 3 5 1! PSECTS: 
: 169 4 § 1! 
; 170 04 1 
s 171 0428 1 ! OWN STORAGE: 
3 ve 04 9 1! 
.- OF 430 1 !4 
: 176 7 a WRITABLE DATA DEFINITIONS 
3 175 4 § 1 ' eeeceseeooroesoeoeeesosooesooesoeoon::coececeesesan 
3 176 4 1 !- 
oe 4 1 GLOBAL 
; 178 os SCRSL_FLINKHEAD : INITIAL (0), ! Initial state is empty 
; +4 4 4 : SCRSL_CUROUTPUT : INITIAL (0); ! Pointer to current output unit 
3 13 4 3 1 OWN 
3 ' § 44 } SCRSL_WORKMASK : INITIAL (0); ! Used to reset attribute mask 
:- ¥ 441 1 
; «6185 re 1 
a 43 1 
s 4 44 1 
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ls 


| EXTERNAL REFERENCES: 


wethcy ROUTINE 
LIBSA 


BSASSIGN, 
$C CALL IAAGE, 


ET“OUTPUT, 
TOP output, 


UPL. Char: 


ITERAL 
TERRLIB, 

VARG 
STRACT, 


So oeaelnents ee ths eee 


L 

FA 
wIN 
“NO 
“IN 
“SC 
“W 


EXTERNA 


5 


SCRSAL_DEVDEPND2 : 


NALYZE_SDESC_R2 : 


1$-$ep-1984 02:98:18 YAN-IT BLisg=82_ 4.02749 


LIBSAGA, VEE SUESE JSB_LINK, 


ength and” address from descriptor 
Assign channel 
Call image 
Deallocate event flag number 
Deallocate aaee syorage 
Get local e 1t2g 
Get input bait are NPUT 


Allocate eee rage 
ines + pe" page 


Get defaul 
Output to SYS$OU 

Release space ~ a dynamic string 
Convert signals to return status 
Establish terminal for output 

Stop output to terminal or screen buffer 
Concatenate several strings into one 
Fill a string with some character 


Condition value symbols 

Fatal internal error 

Invalid argument 

No stream active 

Invalid screen coordinate position 
Screen buffer overflow 

Wrong number of arguments 


C, BYTE); 
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LIBSSCREEN LIBSSCREEN - Screen Management 18- ep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 6 L 
yoes000 LIBSDOWN_SCROLL = Down Serolt, Move Cursor up 0 1 300-1382 96:98:18 VMSLIB’ SREISCREEN. 83274 (3) | \ 
3 3 479 1 ZSBTTL "LIBSDOWN_SCROLL - Down Screil, Move Cursor up One Line’ ; 
: ¢ rs } } GLOBAL ROUTINE LIBSDOWN_SCROI! = : 
: 6 486 1 ise F 
; 4 r ? ! FUNCTIONAL DESCRIPTION: : 
; 9 485 1! This routine causes the cursor to be moved up 1 Line to the ; 
3 0 4 § e same column of the previous line. If the cursor was on the 3 
3 1 be 1! top Line to begin with, it stays where it was, but all the 3 
: ¢ 488 1! information on the screen sopecre to move down one Line. e : 
3 489 1! information that was on the bottom Line is lost and a blank Line 3 
; ¢ rh } appears at the top. : 
; 6 B78 1/ If a scrolling region is active ( on a VT100 or in mapping) : 
3 2or 0495 1! then the logic above applies to the top and bottom Lines of 3 
3 8 0494 1! the scrolling region rather than the top and bottom Line of : 
; 9 bee 1! the screen. If an UP_SCROLL is performed on the bottom Line of : 
; 240 rh 1: the screen, or a DOWN SCROLL is performed on the top Line of the : 
s 241 0497 1! screen, while a scrolling tg is active then no screen 3 
s 24 0498 1! movement takes place unless the top or bottom Line of the screen 3 
: st rte ! corresponds to the top or bottom Line of the scrolling csegion. : 
: 3s 9901 CALLING SEQUENCE: : 
; see 0308 ! | ret_status.wic.v = LIBSDOWN_SCROLL () : 
: $i 0505 1 | FORMAL PARAMETERS: : 
; 250 0506 1! ; 
: $2) $808 1 | 0 
: $3 0509 1 ! IMPLICIT INPUTS: : 
3 See 0510 1! 3 
Ce an : 
: 257 $348 1 | IMPLICIT OUTPUTS: ; 
; 258 0514 1! 3 
a. Shi : 
; 61 0317 ! COMPLETION STATUS: : 
; 368 0319 SS$_NORMAL Normal successful completion i 
: 265 3 1 i SIDE EFFECTS: ; 
: e9 2 : 1 i NONE : 
; 268 524 1 !-- 3 
$68 ed, 
: 271 § $ 1 ' Equate to SCR$ entry point. : 
> 27 5 1 !- 3 
: 27 5 : o ; 
3: 274 03 0 1 GLOBAL BIND ROUTINE LIBSDOWN_SCROLL = SCRSDOWN_SCROLL ; 3 
3; 275 531 1 !<BLF/PAGE> : 
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E_LINE = Erase Line from Screen 12-808-1 382 96:98:15 VMSLIB SREISCREEN B3e04 aon «as 


ZSBTTL 'LIBSERASE LING - Erase Line from Screen’ 
GLOBAL ROUTINE LIBSERASE_LINE ( 
LINE_NO : REF VECTOR p-WoRe ° 
COL_NO : REF VECTOR C,WORD 


++ 
FUNCTIONAL DESCRIPTION: 
This routine causes the screen to be erased from the seat tyre 


position to the end of the line. If the position is no 
specified, the current screen position is assumed. 


' 
i 
i 
i 
i 
i 
i 
CALLING SEQUENCE: 
ret_status.wic.v = LIBSERASE_LINE (CLINE_NO.rw.r, COL_NO.rw.rJ) 
FORMAL PARAMETERS: 
i LINE_NO.rw.r Optional. Address of Line number where erasing 
: starts. If this —— is omitted, COL_NO is 
! ignored as well, and current position wilT be 
used. 
i COL_NO.rw.r Optional. Address of column number where 
' praging starts. If this argument is omitted, 
! LINE_NO is ignored as well, and current position 
will be used. 
IMPLICIT INPUTS: 
| NONE 
IMPLICIT OUTPUTS: 
NONE 
; COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 
BEGIN 
BUILTIN 
ACTUAL COUNT 
ACTUALPARAME TER, 
CALLG; 


t+ 
: If no arguments, just call SCRSERASE_LINE with original call list. 


IF ACTUALCOUNT() EQL 0 


<r 


15 
Screen Management 18-5 -1984 28:1 AX-1 iss- 0-74 
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LJOSSEREEN LIBSSCREEN - 1 4.0 L 
v04-000 LIBSERASE_LIN rase Line from Screen -Sep-1 VMSLIB.S EEN.B32; V 
$ 4 288 THEN 3 
; i 331 RETURN ( CALLG ( .AP, SCRSERASE_LINE)) ; : 
: 5 rs F 
3 8 0398 : Just 1 argument is a no-no. If LINE_NO is supplied, COL_NO must be 3 
; 4 age } supplied as well. Complain. : 
; 41 0886 "IF _ACTUALCOUNT() EQL 1 : 
: rk $898 IF ACTUALPARAMETER (1) EQL 0 : 
; 344 599 ! 1 null arg = treat as no args : 
> 345 $20 RETURN ( SCRSERASE_LINE ()) 3 
; 346 1 ! 1 nonzero arg = error 3 
; 47 oR6 RETURN ( LIBS_WRONUMARG ) ; : 
>; 348 06 3 
3 365 88 4 '¢ 3 
: 329 605 ! Check supplied arguments. If they are not specified (arglist entry 3 
: 51 B88 ! =0) then pass on a zero. If they are specified, check for a value $ 
: $26 060 ! of zero and complain. Call SCRSERASE_LINE with appropriate 3 
: $27 v4 combination of arguments promoted to By-value. : 
; 335 9610 "IF ACTUALCOUNT() EQL 2 ; 
: 357 0612 RETURN ( SCRSERASE_LINE ( ; 
; 3538 061 ; IF ACTUALPARAMETER(1) NEQ 0 $ 
3 $22 0614 HEN : 
; 360 0615 ; IF .LINE_NOCO] EQL 0 : 
3s 361 0616 3 
3 oe 0617 4 RETURN (LIBS_INVSCRPOS) 3 
s 0618 3 
; 364 0619 -LINE_NOCO] 3 
: 364 pose ELSE 0, : 
; 367 06 é IF ACTUALPARAMETER(2) NEQ 0 : 
i 369 0624 IF .COL_NOCO] EQL 0 3 
: 371 0626 4% RETURN (LIB$_INVSCRPOS) ; 
3 Le: 0627 ELSE -COL_NOCOJ 3 
: f be 3 ELSE ») : 
: 375 0630 2 ELSE : 
: 376 0631 ¢ RETURN ( LIBS_WRONUMARG ) ; 

3 S7 0632 ND; ! End of routine LIBSERASE_LINE 


-TITLE LIBSSCREEN LIBSSCREEN - Screen Management 
IDENT \V04-000\ 


-PSECT _LIBSDATA,NOEXE, PIC,2 
00000000 00000 SCS, FL THREAD: 
00000000 00004 SERSL CURD TET 
00000000 00008 SCRSL_WORKMASK: 

-LONG 0 
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vitae LIBSERASE.LINE = Erase Line from Screen etiam Vn aed TR a Pee age 43 
.EXTRN LIBSANALYZE_SDESC_R2 
-EXTRN LIBSASSIGN, LIBSCALL_IMAGE 
“EXTRN LIBSFREE EF, LIBSFREE_VM 
-EXTRN LIBSGET_EF, LIB$GET_INPUT 
-EXTRN LIBSGET-VM, LIBSLP CINES 
-EXTRN LIBSPUT-OUTPUT, LIBSSFREE1_DD 
-EXTRN LIBSSIG-TO_RET, SCRSSET_OUTPUT 
-EXTRN SCRS$STOP_OOTPUT 
e«EXTRN STRSCONCAT STRSDUPL CHAR 
-EXTRN LIB$_FATERRLIB, LIB$—~INVARG 
-EXTRN LIB$~NO STRACT. LIB$—~INVSCRPOS 
“EXTRN LIBS$~SCRBUF LIB$~WRONUMARG 
“EXTRN SCRSAL  DEVDEPND2 
.PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
0004 0000 .ENTRY LIBSERASE -LINE, Save R2 : 0533 
52 0000v CF 3 0000 MOVAB SCRSERASE-LINE. R2 ; 
6c 95 0000 TSTB. ~—- CAP) : 0588 
04 12 00009 BNEQ 1$ : 
62 6C FA 00008 CALLG (AP), SCRSERASE_LINE + 0590 
94 OOO0E RET ; 
01 6C 91 OOOOF 1$ CMPB s CAP), #1 + 0596 
09 2 00012 BNEQ 2$ : 
04 AC 05 00014 TSTL  4(AP) > 0598 
3D (12 90017 BNEQ 469 ; 
62 00 FB 00019 CALLS #0, SCRSERASE_LINE + 0600 
04 0001C¢ RET : 0602 
02 $¢ 91 0001D 2$ CMPB  —s- CAP), -#2 + 0610 
4 12 00020 BNEQ 5 
08 AC D5 000 TSTL 8(AP) : 0622 
OD 1 900 BEQL : 
08 BC 8 00 TSTW  @COL_NO > 0624 
41 900 A BEQL 4 : 
50 08 ec 3¢ d0¢¢ MOVZWL @COL_NO, RO : 0627 
50 DD 000 0 PUSHL RO > 0624 
02 11 0032 BRB § F 
E D4 00034 3$: CLRL  -(SP) : 062 
04 Ag DS 00036 4$: TSTL  4(AP) : 061 
1 1 039 BEQL $ 3 
04 BC B85 00038 TSTW  @LINE_NO > 0615 
08 12 000 BNEQ : 
50 000000006 8F i abe 5$ MOVL #LIBS_INVSCRPOS, RO ; 0617 
50 04 Bf C 00048 6$ MOVZWL aL INE _NO, RO + 0619 
6 DD O4¢ PUSHL R > 0615 
ge 1 0004 BRB ; 
5 D4 7$: CLRL = = (SP) > 0613 
62 0 FB 8$: CALLS #2, SCRSERASE_LINE ~™ 
50 000000006 8F 00 6 9$: MOVL § #LIBS_WRONUMARG, RO : 
04 D RET ; 0632 


; Routine Size: 94 bytes, Routine Base: _LIBSCODE + 0000 
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LIBSSCREEN LIBSSCREEN = Screen Management 1b-5e -Sep- AX-11 Bliss-32 V 
yOe2000 LIBSERASE_PAGE - Erase Page from Screen eet 96:38 VMSLIB.SRCIS SCREEN “B30, 
; 380 634 1 XSBITL "LIBSERASE_PAGE - Erase Page from Screen’ 

3; 3 635 1 GLOBAL ROUTINE LIBSERASE_PAGE ( 

; Bg 6 § 1 LINE_NO : REF VECT On f- WORE Ts 

3 $s 6 1 COL -NO =: REF VECT WORD 

3; See 06 8 1 d= 

3 eH 06 1 !+4 

3 Bo eek : FUNCTIONAL DESCRIPTION: 

3 384 Beg 1! This routine causes the screen to be erased from the specified 
; 389 0645 1! position to the end of the screen. If the position is not 

: 331 pete : specified, the current screen position ie assumed. 

; 85 0646 1 ! CALLING SEQUENCE: 

; 0647 1! 

3 Soe sak : ret_status.wlc.v = LIBSERASE_PAGE (CLINE_NO.rw.r, COL_NO.rw.rJ) 
: 396 0650 1 ! FORMAL PARAMETERS: 

; 397 0651 1! 

: 398 8026 1! LINE_NO.rw.r Optional. Address of Line number at which to 
; 399 0655 1! start erasing. If omitted, COL_NO will be 

; 400 0654 1! ignored as well and current cursor position 

; 401 0655 1! will be used. 

; 402 0656 1! 

; 403 0657 1! COL_NO.rw.r Optional. Address of Column number at which 

: 404 0658 1! to start erasing. If omitted, LINE_NO will be 
3; 405 0659 1! ignored as well and current cursor position 

; 06 0660 1! will be used. 

3; 4 0661 1! 

; 408 0662 1 ! IMPLICIT INPUTS: 

3; 409 0665 1! 

: 410 0664 1! NONE 

3: 411 0665 1! 

: 412 0666 1 ! IMPLICIT OUTPUTS: 

: 413 0667 1! 

: 414 0668 1! NONE 

> 6415 0669 1! 

3 416 0670 1 ! COMPLETION STATUS: 

: 417 0671 1! ; 

; 418 0672 1! SS$_NORMAL Normal successful completion 

: 419 0673 1! 

; 420 0674 1 ! SIDE EFFECTS: 

3 $s) 0675 1! 

3; (4 Q 0676 1! NONE 

: $s 677 1 !-- 

: 424 678 1 

: 425 0679 BEGIN 

; 426 0680 

3: 4627 0681 BUILTIN 

; 428 ons ACTUAL COUNT 

: 629 f ACTUALPARAMETER, 

; 4630 684 AP, 

3; 4631 685 CALLG; 

; $38 6 $ 

3 $3 6 + . : : : 

3 $38 8 : If no arguments, just call SCRSERASE_PAGE with original call List. 
; 4636 690 IF ACTUALCOUNT() EQL 0 
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N 

RETURN ( CALLG ( .AP, SCRSERASE_PAGE)) ; 
14 
! Just 1 argument is a no-no. If LINE_NO is supplied, COL_NO must be 
supplied as well. Complain. 
IF ACTUALCOUNT() EQL 1 
IF ACTUALPARAMETER (1) EQL 0 

' 1 null arg = treat as no args 


RETURN ( SCRSERASE_PAGE ()) 
! 1 nonzero arg - error 
RETURN ( LIBS_WRONUMARG ) ; 


14 

: Check supplied arguments. If they are not specified (arglist entry 
: =0) then pass on a zero. If ney are specified, check for a value 
! of zero and complain. Call SCRSERASE_PAGE with appropriate 
combination of arguments promoted to by-value. 


IF ACTUALCOUNT() EQL 2 


N 
RETURN ( SCRSERASE_PAGE ( 
A ecectapratacleasinies NEQ 0 


4 gL INE MOCO? EQL 0 
RETURN (LIB$_INVSCRPOS) 
ELSE 
«LINE _NOCOJ 
ELSE 0, 
4 ACTUALPARAMETER(2) NEQ 0 
IF .COL_NOCO) EQL 0 
THEN 


RETURN ireweee one 
ELSE .COL_NO[O] 


ELSE 0 )) 
ELSE 
RETURN ( LIBS_WRONUMARG ) ; : 
END; ! End of routine LIBSERASE_PAGE 
0004 00000 ENTRY LIBSERASE_PAGE, Save R2 
52 0000v CF 3 8 8s MOVAB SCRSERASE_PAGE, R2 
6c 9 0 TSTB (AP) 
04 12 ° 09 BNEQ 1$ 
62 6C FA 0B CALLG (AP), SCRSERASE_PAGE 
os 0 be RET 
01 6c 1 83 F 1%: CMPB (AP), #1 
9 12 00012 BNEQ 2$ 


0635 
0690. 
0692. 
0698 | 


D 16 
LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss- 
yOee006 LIBSERASE_PAGE = Erase Page from Screen 1o-808-13Re 96:98:18 VMSLIB $RCIS 
04 AC 3 14 TSTL 4 (AP) 
5 17 BNEQ 9$ 
62 0 FB 19 CALLS #0, SCRSERASE_PAGE 
9 8 1¢ RET 
02 gf 1 1D 2$: CMPB (AP), #2 
4 12 00 BNEQ 9$ 
08 aC 05 000 TSTL al 
0D 13 000 BEQL $ 
08 BC 83 0027 TSTW aCOL_NO 
14 13 0002A BEQL 5$ 
50 08 BC 3¢€ 000 MOVZWL a@COL_NO, RO 
23 DD 68 PUSHL RO 
11 8 4$ 
7E D4 i 4 3$: CLRL -(SP) 
04 ag BB ites 4$: TSTL 4 (AP) 
15 13 000 BEQL 7$ 
04 BC B85 00038 TSTW @LINE_NO 
08 8 ta BNEQ 6$ 
50 00000000G 8F 00 00040 5$ MOVL #LIBS_INVSCRPOS, RO 
of 4 084 RET 
50 04 BC C 00048 6$ MOVZWL @LINE_NO, RO 
50 DD 0004C PUSHL RO 
02 11 O004E BRB 
7E D4 00050 7$: CLRL -(SP) 
62 02 FB 0003 8$: CALLS #2, SCRSERASE_PAGE 
04 0005 RET 
50 00000000G 8F 00 00056 9$ MOVL #LIBS_WRONUMARG, RO 
04 0005D RET 


; Routine Size: 94 bytes, Routine Base: _LIBSCODE + O0S5E 


; 481 0735 1 !<BLF/PAGE> 
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L BSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 99:98:18 AX-11 Oi ieee i el dt 
v04-000 LIBSPUT_BUFFER = Put Current Buffer to Screen o 14-Sep-1984 15:534:4 VMSLIB.SRCJSCREEN.B32; 
; 483 7 § 1 ZSBTTL 'LIBSPUT_BUFFER - Put Current Buffer to Screen or to Prev. Buffer’ 
>; 484 7 1 GLOBAL ROUTINE CIBSPUT_BUFFER ( 
: re Hi 4 8 } OLD _BUFFER : REF VECTOR C,LONG) 
: 48 0740 1 !+4 : 
3 tke gre ! FUNCTIONAL DESCRIPTION: 
: 490 BFe8 1 i This routine is the converse of LIBSSET_BUFFER. It puts the 
; 491 0744 1! contents of the current buffer to another buffer or the screen 
; re Bree : if no buffer is given. 
: 438 O74? CALLING SEQUENCE: 
; 138 3544 ’ ret_status.wlc.v = LIBSPUT_BUFFER (COLD_BUFFER.rl.rJ) 
: 498 O79 | FORMAL PARAMETERS: 
: 500 Ea 1! OLD_BUFFER.rl.r Optional. Address of the previous 
: 230i 0754 1! buffer to put the current buffer into. 
s S02 0755 1! If not specified or zero, put current 
; nit BF 38 ' } buffer to the screen. 
: 505 0758 1 | IMPLICIT INPUTS: 
s. 306 0759 1! 
oe Mae 
: 509 0766 1 | IMPLICIT OUTPUTS: 
s 310 763 1! 
Phe fei 
: 318 0766 ! COMPLETION STATUS: 
: gi? 1444 : SS$_NORMAL Normal successful completion 
; 317 9770 | SIDE EFFECTS: 
: 519 ore 1! The current buffer is output and reintialized to empty. If 
ey ') 0775 1! OLD_BUFFER is nonzero, it is established to become the new 
3 Sey 0774 1! current buffer. 
oat ike 
; 524 b779 BEGIN 
Be RS cunt 
; 258 $580 ACTUAL COUNT 
; 528 0781 ACTUALPARAME TER; 
BRE. 
: 334 0784 i If no arguments supplied to us, just call SCRSPUT_BUFFER with no 
; 235 re : arguments. 
; 334 , IF ACTUALCOUNT() EQL 0 
; 3 , 5 RETURN ( SCRSPUT_BUFFER()) ; 
: : 8 791 2 4 
; 339 792 ! If parameter supplied, and it isn't zero, pass it on to SCRSPUT_BUFFER 


7 oe ae 
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; Routine Size: 


——_———$—$— 


LIBSSCREEN = Sc cregn Managemen Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 15 
LIBSPUT_BUFFER = Put furtent 6 Buffer to Screen o b-ep-1984 9¢: ¢f 45 VMSLIB.SRC SCREEN. O3204 z (6) 
793 1 with the by-value address. If parameter is zero, call SCRSPUT_BUFFER 
Pe ;_W with no arguments. 
£36 "  JF_ACTUALCOUNT() EQL 1 
79 THEN 
£38 IF ACTUALPARAMETER(1) NEQ 0 
79 THEN 
Bans RETURN ( SCRSPUT_BUFFER ( OLD_BUFFERCO])) 
p80s RETURN ( SCRSPUT_BUFFER() ) 
080 ELSE 
paRe RETURN ( LIBS_WRONUMARG ) ; 
0806 1 END; ! End of routine LIBSPUT_BUFFER 
0099 00000 -ENTRY LIBSPUT_BUFFER, Save nothing 3 0737. 
6¢ 95 00602 TSTB (AP) ; 0787) 
13. 13 00004 BEQL 1$ 3 
01 6C 91 00006 CMPB (AP), #1 3 0796 | 
14 12 00009 BNEQ 2s 3 
04 AC 05 00008 TSTL 4(AP) ; 0798 
09 13 OO00E BEQL 1$ 3 
04 AC ODD 0001 PUSHL OLD_BUFFER ; 0800) 
0000v CF 01 fe 48 cols #1, SCRSPUT_BUFFER 3 
0000v CF 00 FB 00019 1$: CALLS #0, SCRSPUT_BUFFER 3; 0802 | 
04 OOO1E RET 3 0804 | 
50 00000000G 8F DO OOOIF 2$: MOVL #LIB$_WRONUMARG, RO 3 | 
04 00026 RET ; 0806 


39 bytes, Routine Base: _LIBSCODE + OOBC 


0807 1 !<BLF/PAGE> 


esac 
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BSSCREEN - Screen Management 18-Sep-1984 0: 8:1 Ax-11 Oh legos AR et Od 
BSPUT_LINE = Put Text to Screen in Line Mode 14-Sep-1984 15:54:4 VMSLIB.SRCJSCREEN.B32; 
8 XSBTITL "LIBSPUT_LINE = Put Text to Screen in Line Mode’ 
LOBAL ROUTINE CIBSPUT_LINE ( 


TEXT : REF BLOCK C,BYTE], 
LINE_ADV, 
FLAGS 


1+ 


144 
FUNCTIONAL DESCRIPTION: 


This routine is used to write messages to the terminal 
followed by cursor movement sequences. 


CALLING SEQUENCE: 
ret_status.wlc.v = LIBSPUT_LINE (TEXT. rt.dx 


F V.erl.rJ 
FEAGS Plea 
FORMAL PARAMETERS: 

TEXT. rt.dx Address of descriptor of output string. 


LINE_ADV.rl.r Optional. Address of signed number of Lines 
to advance after output. 


PAN 9 OONO UE WN 0 ODNOAUEWN OO ONAU EWN =O OONAUES WN CODVNAUEF WOOD oH 
a a kk kk dk dd 


i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i] 
i 
i 
! FLAGS.rl.r Optional. Rendition codes. 
ge oni ttee, SCRSM_NORMAL will be used. 
i SCRSM_BLINK display characters blinking. 
; SCRSM_BOLD display characters in 
: higher-than-normal intensity. 
: SCRSM_NORMAL otap oY characters usin 
: rendition associated with 
: window. 
! SCRSM_REVERSE display characters in reverse 
! video -- i.e., using opposite 
! rendition from window default. 
SCRSM_UNDERLINE display characters underlined. 
8 i IMPLICIT INPUTS: 
084 ! 
085 NONE 
8) : IMPLICIT OUTPUTS: 
3 NONE 
3 COMPLETION STATUS: 
; SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 
0 . 


Page 
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Sep-1984 02:28:18 


H 
1 
fo Screen in Line Mode 18 


N = Screen Management 
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16 
LIBSSEREEN LIBSSCREEN = Screen Management 14. -Sep-1984 99:48 AX-11 Bliss-32 V4.0-74 Page 18 
v04-000 LIBSPUT_LINE = Put Text to Screen in Line Mode 12: -Sep-1984 VMSLIB.SRC SCREEN -B32; ( )| 
50 00000000G 8F BO 6003) 5$: MOVL Pa tance RO 3 
4 RET 3; 0896 


; Routine Size: 57 bytes, Routine Base: _LIBSCODE + 00E3 


3: 645 0897 1 !<BLF/PAGE> 


LIBSSCREEN LIBSSCREEN = Screen Management 1b-Se Sep-1984 AX-11 Bliss-32 V4.0-74 
ve e006 LIBSPUT_SCREEN = Put Text to Screen Sep-1984 ¢: gf 18 VMSLIB  SREISCREEN B32 24 
3; 647 98 1 ZSBTTL 'LIBSPUT_SCREEN = Put Text to Screen’ 

: 648 99 1 GLOBAL R SUTINE CIBSPUT_SCREEN ( 

; 649 00 1 XT : REF BLOCK C,BYTE) 

: e280 901 1 LINE_NO : REF VECTOR L,WORDJ, 

; 651 O08 1 OL_NO : REF VECTOR [,WORDJ, 

: 626 8 1 FLAGS : REF VECTOR [,LONG 

3 $2 904 1 = 

; 654 0905 1 

: 6355 8308 1 !44 

; 656 907 1 ! FUNCTIONAL DESCRIPTION: 

: re $309 i i Thi ti i dt it to the terminal 

3 s routine is used to write messages to the terminal. 

: 689 Stee . 

; 660 0911 1 ! CALLING SEQUENCE: 

; 661 pate ee 

: O36 091 1! ret_status.wic.v = LIBSPUT_SCREEN (TEXT. rt.dx 

; 66 0914 1! LINE_NO.rl.r, COL NO.rl.rJ 

> 664 0915 1! FLAGS lord) 

; 665 pate 1! 

; 666 091 1 ! FORMAL PARAMETERS: 

; 667 0918 1! 

; 298 3484 : TEXT. rt.dx Address of descriptor of output string. 

; 670 0331 ez LINE_NO.rl.r Optional. Address of Line number at which to 

: 671 09 ¢ : 4 start output. If omitted (=0), the current 

; 4 0394 } Line number is used. 

> 674 0925 1! COL_NO.rl.r Optional. Address of column number at which 

3; 675 0926 1! to start output. If omitted (=0), the current 

; 676 0927 1! Line number is used. 

: 677 0928 1! 

; 678 0929 1! FLAGS.rl.r Optional. Rendition codes 

3; 679 0930 1! If a SCRSM_NORMAL tia be used. 

: 680 0931 1! Value 

; 681 O33¢ 1% SCRSM_ BLINK display characters blinking. 
; 682 0935 1! SCRSM_BOLD jap ey characters in 

; 683 0934 1! th er-than-normal vagenstty. 
3 684 0935 1! SCRSM_NORMAL di Spt ay characters usi ng 

3; 685 0936 1! rendition associated with 

> 686 0937 1! window 

; 687 0938 1! SCRSM_REVERSE display characters in reverse 
>; 688 0939 1! video -- i.e., using opposite 
3; 689 0940 1! rendition from window default. 
3 $30 rah ! } SCRSM_UNDERLINE display characters underlined. 
3; 69 308 1 ! IMPLICIT INPUTS: 

3; «69 944 1! 

3 694 945 1! NONE 

3; 695 946 1! 

3 og 947 1 ! IMPLICIT OUTPUTS: 

; 69 Res 1! 

; 698 949 1! NONE 

: oP 950 1! 

: oo9 Ba) ! } COMPLETION STATUS: 

ae b988 1! S$S$_NORMAL Normal successful completion 

; 7 0954 1! LIBS_INVARG 


cASE ACTUALCOUNT() FROM 1 TO 4 OF 
+ 
! oT 1 argument (TEXT), call SCRSPUT_SCREEN with existing 
' call list. 
le 
1]: 
RETURN ( CALLG ( .AP, SCRSPUT_SCREEN )) ; 


4 
! Two arguments. This _ is a no-no. If LINE_NO is specified, 


nm 


K 16 
LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 
rivets LIBSPUT_SCREEN = Put Text to Screen 12780-1382 9g: 4:4 VMSLIB. REISCREEN O34 

r06 8 5 ' LIBS_INVSCRPOS 

06 9 ' SIDE EFFECTS: 

07 9 ' 

08 95 ' NONE 

09 960 leo 

10 961 

11 306 BEGIN 

\¢ 96 

1 964 ILTIN 

14 965 ACTUALCOUNT 

15 9 6 ACTUALPARAMETER, 

13 3 CALLG 

13 6 

19 0 

$y 1 

) : 

23 4 

24 5 

5 6 

6 7 

2 8 

9 
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0981 ' COL_NO must be specified as well. 
3 098 +5 
RETURN (LIB$_WRONUMARG) ; 
0985 
735 0986 + 
736 0987 ! Three arguments provided. Must determine which (if any) 
737 0988 ! were not specified (call List entry is zero). For specified 
738 0989 ' LINE_NO and COL_NO, check for values of zero. Call 
739 0990 i SCRSPUT_SCREEN with appropriate combination of arguments 
740 0991 ' promoted to by-value. 
741 099 - 
74 099 3): 
74 0994 RETURN 
744 995 ( SCRSPUT_SCREEN ( .TEXT 
745 996 if ACTUALPARAMETER(2) NEQ 0 
746 99 HEN 
er 44 IF .LINE_NOCO] EQL 0 
749 1990 RETURN (LIBS$_INVSCRPOS) 
750 1001 ELSE 
751 1 4 -LINE_NOCO) 
£26 ! ELSE 0, 
754 1005 IF ACTUALPARAMETER(3) NEQ 0 
755 1 $ TH 
£36 ! IF .COL_NOCO] EQL 0 
736 1 5 RETURN CL JGS_.INVSCRPOS) 
7 1010 FLEE -COL_NO 
760 1011 ELSE 0 )); 
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16 
-fereen Management 1B-Sen-1964 08:28:18 YAK=11 BLisg-32 40-742 


+ 

! Four arguments provided. Must determine which (if any) 

! were not specified (call List entry is zero). For specified 
; Line NO and COL_NO, check for values of zero. Call 

i SCRSPUT_SCREEN with appropriate combination of arguments 
promoted to by-value. 


4): 
RETURN 
( SCRSPUT_SCREEN ( .TEXT 
i ACTUALPARAMETER(2) NEQ 0 
IF .LINE_NOLO] EQL 0 
RETURN (LIB$_INVSCRPOS) 


»LINE_NOCOJ 


ELSE 

ELSE 0, 

if ACTUALPARAMETER(3) NEQ 0 
IF .COL_NOCO] EQL 0 
THEN 

RETURN (LIB$_INVSCRPOS) 

ELSE .COL_NOCO) 

ELSE 0, 

IF ACTUALPARAMETER(4) NEQ 0 
-FLAGSCO) 

ELSE 
0)); 


+ 
Too many ( or no) arguments provided. Complain. 


COUTRANGE): 
RETURN ( LIBS$_WRONUMARG ) ; 


! End of routine LIBSPUT_SCREEN 


4 00000 .ENTRY LIBSPUT_SCREEN, Save R2 
52 O000v CF 9 0002 MOVAB SCRSPUT SCREEN, R 
01 F 00 CASEB «(AP), #T, # 
000E 000A 0008 1$: WORD ¢s-18.- 
$-1$.- 
4$-1$.- 
95-15 
04 11 0001 BRB $ 
62 6C FA 00015 28: CALLG (AP), SCRSPUT_SCREEN 
04 0001 RET 


M16 
LIBSSCREEN LIBSSCREEN - Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 
Oee000 LIBSPUT_SCREEN = Put Text to Screen 1 =30 7} 3RF 96:68:18 VASLIB’SRe Sthebn o3o04 
50 00000000G_ 8F R0 0 38 3$: poy #LIBS_WRONUMARG, RO 
Oo ac 8 6 1 4$: TSTL ygtan 
0D 1 4 BEQL 5 
oc «BC 3 TSTW aCOL_NO 
4F 0 BEQL 4$ 
50 0c e C 00028 MOVZWL @COL_NO, RO 
DD 8 F PUSHL R 
9 11 00031 BRB 
E 04 88 H 5$: CLRL -(SP) 
08 ac OD 035 6$: TSTL (AP) 
OD 1 68 8 BEQL $ 
08 RC B A TSTW @LINE_NO 
B 13 00030 BEQL 14$ 
50 08 Bf se iF ait hag a NO, RO 
Qe 11 Sods BRB 8$ 
FE D4 4-984 7$ CLR - (SP) 
04 as DD 00049 8$ PUSHL gl 
62 0 fe Booey fails #3, SCRSPUT_SCREEN 
10 AC rE Bape of TSTL 16(AP) 
05 13 0005 EQL 10$ 
10 BC OD 0005 PUSHL @FLAGS 
02 11 00058 BRB 11$ 
7E D4 QOO0SA 10$: CLRL -(SP) 
Oc AC D5 9005C 11$: TSTL 12 (AP) 
OD 13 OO0SF BEQL 12$ 
oc BC 83 00061 TSTW acOL_NO 
14 13 00064 BEQL 14$ 
50 0c BC 3C 00066 MOVZWL @COL_NO, RO 
50 DD 0006A PUSHL RY 
be 11 0006C BRB 13$ 
E D4 0006 198: CLRL -(SP) 
08 Ag b 00070 13$: TSTL 8(AP) 
15 13 0007 BEQL 16$ 
08 BC B85 0007 TSTW @LINE_NO 
8 is te BNEQ 
50 00000000G_ 8F BY 4G 14$: nove #LIBS_INVSCRPOS, RO 
50 08 © 3 3¢ 00082 15$: ait oo RO 
be 11 S0088 BRB 17$ 
E- D4 Baoee 19§: CLRL -(SP) 
04 AC DD O0008C 17$: PUSHL TEXT 
62 04 FB Babes CALLS #4, SCRSPUT_SCREEN 
04 00092 RET 
; Routine Size: 147 bytes, Routine Base: _LIBSCODE + 011C 


: 803 1054 1 !<BLF/PAGE> 
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LAPSScReen EN = Screen Management 16-Sep-1984 96:68:18 AX-11 Oi lene V4.0-742 
v04-000 BUFFER = Set or Clear Screen Buffer Mod 14-Sep-1984 15:54:4 VMSLIB.SRCJSCREEN.B32;1 
; 805 1055 1 &SBTTL "LIBSSET_BUFFER = Set or Clear Screen Buffer Mode’ 

; 806 1998 1 ! GLOBAL ROUTINE LIBSSET_BUFFER ( 

; 807 1057 1! BUFFER : REF BLOCK C,BYTEJ 

: 808 1058 1 | OLD_BUFFER : REF VECTOR C,LONGS 

; 809 1059 1! )s 

; 810 1060 1 !4+ 

4 ae 130) i FUNCTIONAL DESCRIPTION: 

3 HE 1908 +3 This routine is called to establish a buffer to be used to hold 
; «4814 1064 1! terminal output rather than immediately writing the output to 
; 815 1065 1! SYSSOUTPUT. It is also called to turn off the buffering mode. 
: 51§ 1996 : 3 The buffer address is established such that all screen output 
; «681 1067 1! is appended to the end of the buffer. 

; 818 1068 1! 

; 819 1069 1 ! CALLING SEQUENCE: 

: 820 1070 1! 

; 821 1071 1! ret_status.wic.v = LIBSSET_BUFFER (BUFFER.mt.ds 

3. Bee 1076 C,OLD_BUFFER.wl.rJ) 

> 823 1073 1! 

; 824 1074 1 ! FORMAL PARAMETERS: 

> 825 1075 1! 

: 826 1076 1! BUFFER.mt.ds Address of descriptor of buffer. If 0, 

3 ase ier : uffering mode is turned off. 

; 829 1079 1! OLD_BUFFER.wl.r Optional. Address of the location containing 
: age 1380 : address of the current buffer descriptor. 

3; 832 IRS 1 ! IMPLICIT INPUTS: 

; 833 1083 1! 

; 834 1084 1! NONE 

s #855 1085 1! 

; 836 1086 1 ! IMPLICIT OUTPUTS: 

; 837 1087 1! 

; 838 1088 1! NONE 

3; 839 1089 1! 

3; 840 1090 1 ! COMPLETION STATUS: 

3; 841 1091 1! 

3; 842 1036 73 SS$_NORMAL Normal successful completion 

3; 843 1095 1! 

3: 844 1094 1 ! SIDE EFFECTS: 

3; 845 1095 1! 

: 846 1096 1! NONE 

: 847 1097 1 !<- 

; 848 1998 1 

3: 849 1099 1 !4 

; 29 BY + ! Equate to SCR$ entry point. 

; 5 1198 1 GLOBAL BIND ROUTINE LIBSSET_BUFFER = SCRSSET_BUFFER ; 

; & 1105 1 !<BLF/PAGE> 


. 
o 
° 
o 
. 
e 
. 
. 
° 
° 
. 
e 
- 
e 
~ 
. 
* 
° 
. 
. 
. 
° 
. 
o 
- 
° 
. 
e 
. 
e 
. 
o 
cm 
oe 
7 
e 
o 
e 
. 
° 
. 
. 
- 
. 
> 
« 
. 
o 
. 
e 
7 
e 
e 
e 
. 
e 
. 
oO 
a 
e 
. 
° 
. 
e 
e 
e 
a 
. 
o 
7 
2 
7 
e 
° 
& 
> 
a 
7 
oe 
. 
e 
~ 
e 
. 
co 
. 
@ 
© 
. 
. 
e 
. 
e 
. 
. 
. 
2 
e 
. 
. 
7 
. 


~rmnm 


ee eee ee 


m 


Pe 


uvnmwn 
ma 


WAIANAE WNIAI AI IPIDOPPPDD 2 es 


N = Screen Management ese p-1984 2 9: ge: \§ AX=-11 Bliss-32 V4.0-74 
URSOR = Set Cursor to Character Positi 19-808 - 138 74 VMSLIB.SRCJSCREEN.B32; 
$ 


BITL ‘LIBSSET_CURSOR = Set Cursor to Character Position on Screen’ 
LOBAL ROUTINE CIBSSET_CURSOR 


_—~ 


LINE NO : REF VECTOR (,WORD 
S COL NO : REF VECTOR C,WORDJ- 


Ps 
cocococececD 6CI 


AAAS 


DONO UVESWN "OO OONAUES WN" ODOONOu 


FUNCTIONAL DESCRIPTION: 


This routine causes the cursor to be moved to the specified 
position. 


CALLING SEQUENCE: 


ret_status.wlc.v = LIBSSET_CURSOR (LINE_NO.rw.r, 
L_RO.rw.r) 


FORMAL PARAMETERS: 
LINE_NO.rw.r Address of Line number. 
COL_NO.rw.r Address of column number. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 


2 09 09 Cd 09 Cd 0D CD CD C0 C0 CD 09 0D 00 C0 CD CD CD 
SNS NIN NN SSO OOOO 


ON Nh eh ie ee ee ee ee ee ee 


BEGIN 
LTIN 
ACTUALCOUNT 
ACTUALPARAMETER ; 

IF ACTUALCOUNT() EQL 2 


RETURN ( SCRSSET_CURSOR ( 
TF ACTUALPARAMETER(1) NEQ 0 


HEN 
IF .LINE_NOCO) EQL 0 
RETURN (LIB$_INVSCRPOS) 
.LINE_NOLOJ 
ELSE 
RETURN ( LIBS_WRONUMARG) , 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-7 P 
Noe $350 LIBSSET_CURSOR = Set cursor to Character Positi 127808- 1382 6: 4:4 VMSLIB.SR Reis SCREE NiB3o: 29e 163 
; 31g 1161 
; a7 ie § IF ACTUALPARAMETER(2) NEQ 0 
: 915 1164 IF .COL_NOLO] EQL 0 
: 319 1188 4 RETURN (LIB$_INVSCRPOS) 
: V 
; 918 1189 ELSE = 
; 919 1168 -COL_NOCOJ 
; 920 1169 ELSE 
: 1 1109 RETURN ( LIBS_WRONUMARG ) )) 
: 9 4 1106 
: 924 117 ELSE 
3 2 Z oe RE. URN (LIBS_WRONUMARG ) ; 
: 927 1176 1 END; ! End of routine LIBSSET_CURSOR 
0000 44 -ENTRY LIBSSET_CURSOR, Save nothing : 1105 
02 6C 91 6000 CMPB (AP), #2 3 1149 
2E 12 00005 BNEQ 3$ 3 
08 AC OD td TSTL 8 (AP : 1162 
29 13 QO00A BEQL 3$ 3 
08 BC B3 0000C TSTW acOL_NO : 1164 
10 13 QOOOF EQL 1$ ; 
50 08 BC 3C 00011 MOVZWL @COL_NO, RO : 1168 
50 DD 00015 PUSHL RO : 1164 
04 AC Pe 00017 STL 4 (AP) : 1152 
19 13 QOOTA BEQL 3$ 3 
04 BC B5 OO0IC TSTwW @LINE_NO : 1154 
ge 12 QOO1F BNEQ 3 
50 00000000G 8F bY 444 1$: ppyt #LIBS_INVSCRPOS, RO : 1156 
50 04 Bf eC 0029 2$: MOVZWL @LINE_NO, RO : 1158 
DD 0002D PUSHL 3 1154 
0000vV CF 0 FB 0002F CALLS #2, SCRSSET_CURSOR s 1152) 
04 00034 RET 3 1174 
50 00000000G 8F BO 00035 3$: MOVL #LIBS_WRONUMARG, RO ; 
4 0005C RET : 1176 


; Routine Size: 61 bytes, Routine Base: _LIBSCODE + O1AF 


928 1177 1 !<BLF/PAGE> 
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1 
LIBSSCREEN LIBSSCREEN = Screen Management 1-se $1984 02:28:1 AX-"; Bliss-32 V4.0-74 Page 26 LIE 
Ves 000 LIBSSET_SCROLL = Set screlting Region 1278 08- 1 3be 6: 4:4 VFPSLIB.SRC SCREEN O30 4 ass vo 
; 930 1178 1 ZSBTTL 'LIBSSET SCROLL = Set Scrolling Regian' : 
> 93) 1179 1 GLOBAL ROUTINE CIBSSET_SCROLL ( : 
; 9 § 1189 1 START_LINE : REF VECTOR eo ° 2 
: 9 11 1 END_LINE =: REF VECTOR C,WORD 2 
3 g 1188 1+4 ete : 
; 2 : Bh } : FUNCTIONAL DESCRIPTION: ; 
: 938 1186 1! This routine establishes a scrolling by setting the internal : | 
: 939 1187 1! scrolting rogren parameters. Issues the escape sequence that : 1 
3 4 1138 : establishes the region and preserves the cursor position. : 
; 34e 1190 | { CALLING SEQUENCE: i 
> 944 119¢ 1 ret_status.wlc.v = LIBSSET_SCROLL (START LINE.rw.r, : | 
3 ee? BS } END_LINE.rw.r) a 
; 947 1193 1 | FORMAL PARAMETERS: i] 
: 949 1197 7: START_LINE.rw.r Address of first Line of scrolling 3 1 
3 ge0 1338 : region. Optional. : 
: 33¢ 1200 1! END_LINE.rw.r Address of last line of scrolling a 
; eer 163) : region. Optional. : 
: 955 1508 1 ¢ IMPLICIT INPUTS: 5 | 
; 956 1206 1! ¢ | 
oe : 
: 959 1207 1! IMPLICIT OUTPUTS: : 1 
; 960 1208 1 | : 1 
i os : 
; 965 ent ' COMPLETION STATUS: i 
: bee 1218 : SS$_NORMAL Normal successful completion : 
; 967 1215 | | SIDE EFFECTS: 1 
: 969 1217 1! NONE i] 
; 970 1918 1 !-- : 
> 971 1219 1 i] 
; 44 1381 BEGIN 3 
> 974 1 3 UILTIN 21 
s 975 12 é ACTUALCOUNT : 1 
; 9? 12 4 ACTUALPARAMETER, | 
: 978 1226 CALLG; i] 
oe ae wey 
: 3a : , iif no arguments, just call SCRSSET_SCROLL with original call List. : } 
3 983 1231 IF ACTUALCOUNT() EQL 0 : | 
> 985 1338 RETURN ( CALLG (.AP, SCRSSET_SCROLL)); z | 
; 986 1234 ; 
| 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 27 
Von e000 LIBSSET_SCROLL = Set Seretting Region 19-808-1 382 96:98:18 VMSLIB SREISCREEN B30¢4 . a 

: OR 1588 $ i yust 1 ti If LINE_NO Lied, COL_NO b : 

; ! Jus argumen Ss a no-no. L $ SU ed, L_NO must be 3 
: 4 } : supplied He well. Complain. ss ” = ; 
> 991 1 § IF ACTUALCOUNT() EQL 1 : 
; 99 1240 THEN eS 
; 99 1241 IF ACTUALPARAMETER (1) EQL 0 | 
: 994 1 45 HEN ! 1 null arg = treat as no args : | 
: 995 124 RETURN ( SCRSSET_SCROLL ()) tj 
; 996 1244 ! 1 nonzero arg = error ; | 

: 997 1245 RETURN ( LIBS_WRONUMARG ) ; : 
: 998 1 6 Ss 
; .999 124 1+ 3 | 
:; 1000 1248 ! Check supplied arguments. If they are not specified (arglist entry = 0) 3 | 
: 1001 1249 ! then pass on a zero. If they are specified, check for a value of zero | 
: 1008 1250 ' and complain. Call SCRSSET_SCROLL with appropriate combination of 3] 
; 100 1251 ' arguments promoted to by-value. 3} 
: 1004 1526 - e 
; 1005 125 IF ACTUALCOUNT() EQL 2 3 | 
: 1006 1254 S| 
3; 1007 1255 RETURN (SCRSSET_SCROLL ( :} 
: 1008 1256 IF ACTUALPARAMETER(1) NEQ 0 3 | 
: 1009 1257 2 
: 1010 1638 IF .START_LINECO] EQL 0 $l 
: 1011 1259 | 
; IR1¢ 1260 4 RETURN (LIBS_INVSCRPOS) ee 
: 101 1261 3 ELS S| 
3: 1014 1606 3 «START_LINELO] | 
3: 1015 1263 3 ELSE 0, :] 
: 1016 1264 3 | 
3; 1017 1265 3 IF ACTUALPARAMETER(2) NEQ 0 3 
: 1018 1266 3 T 3 
3: 1019 1267 : IF .END_LINECO] EQL 0 3) 
; 1020 1268 $7] 
3; 1021 1269 4 RETURN (LIB$_INVSCRPOS) ee 
3 1022 1270 3 ELSE .END_LINECOJ 3) 
3: 1023 1271 3 ELSE 0)) 3 } 
3 1024 is?¢ 2 ELSE Ss 

: 1025 127 2 RETURN (LIB$_WRONUMARG) ; : 
3 1956 1274 2 4 
3: 1027 1275 «(1 END; ! End of routine LIBSSET_SCROLL : 1 
. 4 
0004 00000 -ENTRY LIBSSET_SCROLL, Save R2 3: 1179 s | 
52 0000v CF 44 000 6 MOVAB SCRSSET_SCROLL, R2 3 1] 
Bf 9 0 TSTB (AP) : 1231 | 
4 12 00009 NEQ 1$ F e 

62 6C 4 : : EALLG (AP), SCRSSET_SCROLL 3 T2385 3 

01 C 1 OOOF 1$: CMPB (AP), #1 : 1239 : 

9 1 \¢ BNEQ ¢ 3 ; 

04 AC p 1 TSTL (AP) > 1241 : 

. D 17 BNEQ of 3 3 

62 0 FB 00019 CALLS #0, SCRSSET_SCROLL : 1243 ; 


sacar 


s Routine Size: 


3 1028 


LIBS ner - Screen Renegepent 18-5 
LIBSSET_SCROLL = Set Scrolling Region 14-Sep-1 
4 1C 
02 C 9 1 : 
oc HB 2 
08 AC OD 
OD 1 
08 BC 
50 08 aC is ¢ 
BS 345 
be 11 
04 AE DS 00086 & 
tS 93 G0038 
BE HS S08 
50 00000000G &F RY se 5 
50 04 BC ir BoRee 6$: 
gp see 
43 D4 $0080 7$: 
oe ag Be 
50 00000000G 8F DO 00056 9$: 
04 0005D 
94 bytes, Routine Base: _LIBSCODE + O1EC 
1276 1 !<BLF/PAGE> 
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(AP), #2 
(AP) 
ND_LINE 
+ acetate RO 


@START_LINE 
#L1B$_INVSCRPOS, RO 
@START_LINE, RO 

RO 


=(SP) 
#2, SCRSSET_SCROLL 
#LIB$_WRONUMARG, RO 
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OLL = Up Scroll, Move Cursor Down One 127868-13 4 96:98:18 VMSLIB SREISCREEN O32;1 ’ (133 


voe-800" L 
TTL *LIBSUP_SCROL 
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LIB E 
LIBSUP_SC 
; 1030 1277 1 %88 t = Up Scroll, Move Cursor Down One Line’ 
; 1031 1 i 1 ! GLOBAL ROUTINE LIBSUP_SCROLL = 
..% ¢ 1279 1! 
; 10 1280 1 !++ 
; 1 ¢ : 1 } } FUNCTIONAL DESCRIPTION: 
; 1036 1 : 1! This routine causes the cursor to be moved down 1 Line to the 
: 1037 1284 1! same column of the fot Loving Line. If the cursor was on the 
:; 1038 1285 1! bottom Line to begin with, it stays where it was, but all the 
: 1039 1 6 3 information on the screen appears to move up one Line. The 
: 1040 1287 1! information that was on the top Line is lost and a blank Line 
: 130) : Ht : appears at the bottom. 
3 1063 1290 1 } If a scrolling region is active ( on a VT100 or in mapping) 
+ 1044 1291 1! then the logic above applies to the top and bottom Lines of 
; 1045 1 3 1! the scrolling region rather than the top and bottom Line of 
3; 1046 1295 1! the screen. If an UP_SCROLL is performed on the bottom Line of 
3; 1047 1294 1! the screen, or a DOWN SCROLL is performed on the top Line of the 
: 1048 1295 1! screen, while a scrolling region is active then no screen 
: 1049 1296 1! movement takes place unless the top or bottom Line of the screen 
3 Way 344 : corresponds to the top or bottom Line of the scrolling region. 
3 1026 1427 1 ! CALLING SEQUENCE: 
: 105 1300 1! 
3: 1054 1301 1! ret_status.wlc.v = LIBSUP_SCROLL () 
3; 1055 1308 Ss 
: 1056 130 1 ! FORMAL PARAMETERS: 
: 1057 1304 1! 
; 1058 1305 1! NONE 
3; 1059 1306 1! 
: 1060 1307 1 ! IMPLICIT INPUTS: 
: 1061 1308 1! 
: 1206 1309 1! NONE 
: 106 1310 71! 
: 1064 1311 1 ! IMPLICIT OUTPUTS: 
; 1065 1316 1! 
>; 1066 13 1! NONE 
3; 1067 1314 1! 
: 1068 1315 1 ! COMPLETION STATUS: 
3; 1069 1318 i 
: 1070 bib gee & SS$_NORMAL Normal successful completion 
3; 1071 1318 1! 
3 1376 1319 1 ! SIDE EFFECTS: 
3; 107 1330 1! 
3; 1074 ary i NONE 
3; 1075 1356 1 f= 
: 1g78 1 1 
: 107 1324 1 !¢ 
3; 1078 1325 1 ! Equate to SCR$ entry point. 
; 1079 1 § 1 !- 
: 1080 13 1 
:; 1081 1328 1 GLOBAL BIND ROUTINE LIBSUP_SCROLL = SCRSUP_SCROLL ; 
; 1082 1329 1 !<BLF/PAGE> 
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N SCROLL = Down Seroll. Move Cursor up 0 1 ~3ep-19 4 96:98:18 VMSLIB.SRCISCREEN.B32; . ad 


> 1084 1330 1 XSBITL ‘SCRSDOWN SCROLL = Down Scroll, Move Cursor up One Line’ 

: ISR? } 1 } GLOBAL ROUTINE SCRSDOWN_SCROLL = 

; 1087 : : FUNCTIONAL DESCRIPTION: 

3; 1089 1335 1! This routine causes the cursor to be moved up 1 Line to the 

3 1930 1 § 1! same column of the previous line. If the cursor was on the 

3; 1091 1 a top Line to begin with, it stays where it was, but all the 

3 1038 1 3 1! information on the screen appears to move down one Line. e 
; 109 1 1! information that was on the bottom Line is lost and a blank Line 
3 103¢ : re } appears at the top. 

; 1096 1 tg 3 If a scrolling region is active ( on a VT100 or in mapping) 

: 1097 1345 1! then the logic above applies to the top and bottom Lines of 

; 1098 1344 1! the scrolling region rather than the top and bottom Line of 

3: 1099 1345 1! the screen. If an UP_SCROLL is performed on the bottom Line of 
; 1100 1346 1! the screen, or a DOWN SCROLL is performed on the top Line of the 
3: 1101 1347 1! screen, while a scrolling region is active then no screen 

$ 1108 1348 1! movement takes place unless the top or bottom Line of the screen 
3 1102 : r+ : : corresponds to the top or bottom Line of the scrolling region. 
3; 1105 1351 1 ! CALLING SEQUENCE: 

; 1106 1326 1! 

: 1107 b>} He ee ret_status.wlc.v = SCRSDOWN_SCROLL () 

3; 1108 1354 1! 

3: 1109 1355 1 ! FORMAL PARAMETERS: 

: 1110 1356 1! 

31111 1357 1! NONE 

; 1316 1358 1! 

3 111 1359 1°! IMPLICIT INPUTS: 

3 1114 1360 1! 

3 1793 1361 1! NONE 

3 1116 1306 1! 

31117 1365 1°! IMPLICIT OUTPUTS: 

3; 1118 1364 1! 

31119 1365 1! NONE 

: 1120 1366 1! 

3: 1121 1367 1 ! COMPLETION STATUS: 

3 11 § 1368 1! 

3 41 1369 1! SS$_NORMAL Normal successful completion 

3 1158 1370 a 

3 1125 1371 1 ! SIDE EFFECTS: 

: 11$6 1 ie 1! 

3 71 1375 1! NONE 

; 1128 1374 1 Se= 

3: 1129 1322 1 

3; 1130 1376 BEGIN 

3 1131 1377 

311 ¢ 1378 MACRO 

: 1135 1379 ¥105 DOWN = ZSTTING (ZCHAR(VTOS_CUP), ZCHAR(NULL), ZCHAR(NULL), ZCHAR(NULL), ZCHAR(NULL))2, 
311 1380 vT é DOWN = ZSTRING (ZCHAR(ESC) TCHAR(VT3¢ WN) )£ 

ii 5 1 VT100_DOWN = ZSTRING (ZCHAR(ESCS, ZCHAR(VT100_DWN) 52; 

311 1 ‘ LOCAL 

; 1138 1384 STATUS, ' used for calls 

3; 1139 1385 " ' terminal control block 

3; 1140 1 DOWN_BUF : BLOCK (8,BYTE]), ! buffer dsc for OUTPUT 


1 
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VOee000 SCRSDOWN_SCROLL = Down Stroll. Move Cursor up 0 1 ~300n 138i 96: 4:4 VMSLIB SREISCREEN: B3e04 . ad 

: 1141 1387 TERM_TYPE; ! terminal type ;] 
i 1149 1388 - a6 4 
3 114 1 MAP 3 7 
H Viee | + TCB : REF BLOCK C,BYTE); $ : 
3 1128 1 35 STATUS = SCRSSGET_TYPE_R3 (SCRSC_DOWN_SCROLL; TCB, TERM_TYPE); 37 
3 114 139 ' pet current control block, 37 
3; 1148 1394 IF NOT .STATUS OR .TCB CSCRSB_TYPE] EQL VTFOREIGN 3 7 
2 1188 : 32 THEN RETURN .STATUS; 3 } 
3 1151 1 38 TCB CSCRSL_LINE) = ,TCB CSCRSL_LINE) = 1; 3 3 
2 1138 1398 IF .1CB CSCRSL_LINE) LEQ 0 : | 
3 V2 e+ TCB CSCRSL_LINEJ = 1; ! Limit cursor to line 1 3 : 
; 1156 1288 IF .TCB CSCRSL_CHARMAP) NEQ 0 AND 7 
3 1187 140 -TCB CSCRSL_BUFFER] NEQ 0 : 7 
3; 1158 1404 HEN : 7 
: 1159 1405 RETURN (SS$_NORMAL) ; ! do nothing if mapping active and 3] 
: 1160 1406 ! buffering enabled 3 1 
; 1161 1407 $1 
3 1106 1408 DOWN_BUF ith A = DSCSK_DTYPE_T; : 4 
: 1307 et DOWN_BUF CDSC$B_CLASS] = DSCSK_CLASS_S; 3 ! 
3: 1165 1411 CASE .TERM_TYPE FROM UNKNOWN TO VT100 OF 3 7 
3; 1166 aig T 37 
3; 1167 141 CUNKNOWN] : 29 
: 1168 1414 BEGIN $y 
; 1169 1415 DOWN_BUF CDSC$W_LENGTH] = 0; 4 
> 1170 1416 NOWN-BUF CDSCS$A-POINTER] = 0; 31 
: 1171 1417 END; 54 
3 1178 1418 2 3 7 
3 117 1419 CvT05) : 2 1 
3 1174 10S) BEGIN 3 3 
; 1175 1421 DOWN_BUF Gta = ZCHARCOUNT (VTO5_ DOWN); 3 1 
3; 1176 1o56 3 DOWN_BUF CDSCSA_POINTER] = UPLIT (BYTE (VTO5_DOWN)); 3 3 
: 1177 165 END; 3s 
; 1178 1424 | 
3 1179 1425 Cv152) : ae | 
: 1180 1426 31 
: 1181 1427 DOWN_BUF Hing tat = ZCHARCOUNT (VT52_DOWN); S| 
3 1186 1428 DOWN_BUF CDSCSA_POINTER] = UPLIT (BYTE (VT52_DOWN)); s 1 
: 118 1429 END; | 
3 11 1430 3.7 
: 1185 1431 {CvT100) : 31 
‘Bh 1336 BEGIN zs) 
3; 1187 143 DOWN_BUF tine pat = XCHARCOUNT (VT100_ DOWN); s 1 
3; 1188 1434 DOWN_BUF CDSCSA_POINTER] = UPLIT (BYTE (VT100_DOWN) ); 3 1 
> 1189 1435 END; 2] 
: 1190 14 $ 3g) 
3 1191 14 TES; | 
3 1136 14 8 : 1 
3 119 14 RETURN (STATUS = OUTPUT (.TCB, DOWN_BUF)); 3} 
; 119% 1469 ' output sequence for this terminal type 3 
3 1196 1442 END; ! End of routine SCRSDOWN_SCROLL 3 
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P AAA: 
P.AAB: 
P.AAC: 
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8 
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<27>\I\ 
<27>\M\ 


#5, RO 
SCRSSGET_TYPE_R3 
STATUS 

10(TCBS, #4 


6(TCB), 1$ 
wi, 36(TCB) 
CB) 


#270, DOWN BUF +2 
TERM TYPE, “#0, 
4$-3$,- 
5$-3$.- 

$-3$.- 

$-3$ 

DOWN_BUF 
DOWNBUF +4 

#5, DOWN BUF 
P.AAA, DOWN_BUF +4 


#2, DOWN.B 
P.AAB. DON, _BUF +4 


#2, DOWN B 

P.AAC DUN, _BUF +4 
OemeR {.s 
#2, buteut 


SCRSDOWN_SCROLL, Save R2.R3 
#8, SP 
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LIBSSCREEN SCREEN - Screen Management 16-Sep-1984 8:1 AX-11 Bliss-32 V4.0-74 
rivets ERASE_LINE = Erase Line 12-808 - 1 3b % 2 18 WMSLIB’ SREISCREEN B50 0% 
3 ZSBITL ‘SCRSERASE ENE - Erase Line’ 
4 GLOBAL ROUTINE SCR ERASE_LINE ( 
4 LINE_NO : WORD, 


COL_NO : WORD 


14 
: FUNCTIONAL DESCRIPTION: 


This routine causes the screen to be erased from the specified 
position to the end of the Line. If the position is not 
specified, the current screen position is assumed. 


i CALLING SEQUENCE: 


ret_status.wlc.v = SCRSERASE_LINE (CLINE_NO.rw.v, 
COL_NO.rw.vJ) 


i FORMAL PARAMETERS: 


LINE_NO.rw.v Optional. Line number where erasing starts. 
If this argument is omitted, COL_NN is ignored 
as well, and current position will be used. 
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i] 

: COL_NO.rw.v Optional. Column number where erasing starts. 
} If this argument is omitted, LINE_NO is ignored 
as well, and current position wilT be used. 
! 
' 
! 
! 
' 
! 
! 
1 
' 
! 
' 
1 
i] 
' 
! 
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i IMPLICIT INPUTS: 
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67 
68 NONE 
69 i 
70 i IMPLICIT OUTPUTS: 
rg NONE 
rs i COMPLETION STATUS: 
A] SS$_NORMAL Normal successful completion 
28 i SIDE EFFECTS: 
80 NONE 
i : 
BEGIN 
84 
85 ILTIN 
86 ACTUAL COUNT 
87 ACTUALPARAMETER ; 
89 MACRO 
90 VTOS_LINE = XSTRING (ZCHAR(VTOS_EOL), ZCHAR(NULL), ZCHAR(NULL))%, ! VTOS (w/fiLL) 
91 V132 LINE = %STRING (ZCHAR(ESC), ZCHAR(VTS2_EOL))& Tyt5 
9 VT100_LINE = STRING (ZCHAR(ESCS, ZCHAR(LB); ZCHAR(VT100_EOL))%; ! vT100 
94 LITERAL ; 
95 K_CURSOR_ARGS = 2, ! 2 args if Line_no & col_no present 
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reen Management } 
K_LINE_SIZ = 25; size for erase Line seq buffer 
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eeeee known sequences will not 
eeete exceed + size. in the 
eeeee future it may be necessary 
tenxee to increase this. 


LOCAL 

TERM_TYPE, ' terminal type 

TCB ! ptr to terminal control block 
a STATUS; i status retd by called routines 


TCB : REF BLOCK C,BYTE); 


STATUS = SCRSSGET_TYPE_R3 (SCRSC_ERASE_LINE; TCB, TERM_TYPE); 
} get current TCB 

IF NOT .STATUS OR .TCB CSCRSB_TYPE] EQL VTFOREIGN 

THEN RETURN (.STATUS); 


+ 

! If mapping is active, just clear the character and attribute maps. 
: if maeeine is inactive, set the cursor (if Line_no and col_no 
were specified) and output the erase Line sequence. 
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t.'™ CSCRSL_CHARMAP] NEQ 0 ! mapping active 


BEGIN 
a () EQL K_CURSOR_ARGS 


BEGIN !' reset cursor pos if line, col spec 
TCB CSCRSL_LINE] = .LINE_NO; 


ee ee ee ee ee ca ee ee ee ce a a a a ae ae ce ce a ee ee cee ce ee a ce a ee a ce a a ae ed ee ee ed 
WIAA AINA ANA AANA NANA WANN 
AWA ANIA PINPINPOPUNIPININPDY 2 Ss 2 SS SS OOO 
AOE ADR 20 OD NO UE WN 9 OD NAME WIN (OOD NA UE WN SO ODNOUE AN HOO ONOULS WHO Me 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Be Se Se Be Be Se Se Se Be Be Se Se Se Se Be Se Se Se Ge Bs Ge Ge Ge Be Se Se Se Be Ge Se Se Ge Fe Fe Se Se Ge FSF Se Se Se Se Se Sees Se Se Se See ee Ge Ge Geese 
BeBe Be Se Se Se Se Be Ge Be Se Ge Ge Se Be Se Ge Se we Ge Se Ge Se Ge Ge Se Ge Ge Fe Se Se Fe Se se Fe Se Fe Se Se ee Se Se Se Se See Se Se Se Fe Se Se See Se Seas 


7 
7 TCB CSCRSL-COLUMN] = .COC_NO; 
7 END; 
7 FILL_MAP (.TCB 
7 .1CB CSCRSL_LINE], 
7 -TCB ESCRSL-COLUMNI, 
7 -TCB CSCRSL_LINE], 
7 -TCB CSCRSW_DEVWIDTHI, 
7 Zc° '); ! fill maps with spaces 
3 7 TCB CSCRSL_ATTRMASK] = 0: clear OR'd attr mask 
3 8 RETURN (SSS$_NORMAL) ; 
3 8 ! mapping inactive 
39 BEGIN 
0 LOCAL 
41 BUFFER : BLOCK (8 Byte) ' dsc for buffer 
343 8 CUR_BUF_SIZ : INITIAL (0§, i‘ size of buffer 
34 8 OUT-STATUS, ' status retd by OUTPUT 
344 8 ERASE_LEN, ! Length of erase sequence 
345 8 ERASE PTR, ' ptr to erase sequence 
306 59 TEMP_BUF : VECTOR CK_LINE_SIZ, BYTE];! buffer to hold set cursor and 
rtf 8 ! erase page sequences 
49 39 BUFFER peces_pryeed = DSCSK_DTYPE_T; 
50 59 BUFFER CDSC$B_CLASS] = DSCSK_CLASS_S; 
51 2 BUFFER CDOSCSA_POINTER] = TEMP_BUF; 
52 9 '¢ | 
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LIBSSCREEN LIBSSCREEN - Screen Management 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Pp 8 LIB 
VOe.000 SCRSERASE_LINE - Erase Line 127808-1382 99:48 VSLIB SREISCREEN b5o 07 age 43 oe 
? 05 bd So094 as BOUL "98 ERASE_LEN ; 1898 3 
aS rr SF i oe é MOVAB P Aa E, ERASE_PTR : 1896 : | 
57 “ DO 0009D 9$: MOVL i ERASE_LEN + 1631 :1 
0 FFS9 OC 3 Ap MOVAB P Ant opeR ASE PTR : 1632 31 
51 ee 6 : AS 10$ ADDL3 CU $12, BUF + 163 : 1 
61 6 8 OAA MOVC ERASE UT eN (ERASE eras. : 31 
20 AE 5 6E Al 3 ADDW3. CUR BOF_SfiZ, ERASE_LEN, oo eeR + 1640 31 
0 tp dime, ue RFER feed OMe 3 
O000v CF 02 FB 0088 CALLS i OUTPU : 71 

03 E BD BLBC  OUf_STATUS, 12$ : 

0 01 00 900 11$:  MOVL #1, : 

04 000C3 12$: RET : 


; 1407 1651 1 !<BLF/PAGE> 


1644 
1646 
1650 
; Routine Size: 196 bytes, Routine Base: _LIBSCODE + O2CF 
| 


agement 


EEN = Screen Man 
SE_PAGE = Erase Page 


LIBSSCR 
SCRSERA 


LIBSSCREEN 
voe-000 


L}, ZCHAR(NULL), ZCHAR(NULL) 2%, ! VTOS ¢ 


pecified 
not 


ZCHAR (NUL 
! v152 


ivi100-£os) 2; ! vT100 


2V. 


-fw.vl) 
AR 


an= 


If the position is 


ified, the current screen position is assumed. 


CALLING SEQUENCE: 


PAGE (CLINE_NO.rw 
COL. 
Column number at which to start 


nO 
Line number at which to start 
If omitted, COL_NO will be jpreres 


and current cursor position wi 


?- If omitted, LINE_NO will be pprered 
and current cursor position wil 


be used. 
Opti 


onal. 
in 


in 
as wel 
Normal successful completion 
5 
j 


Optional. 
eras 

as wel 

be used. 


causes the screen to be erased from the s 
eras 


to the end of the screen. 


ret_status.wic.v = SCRSERASc_ 


This routine 
osition 
ACTUALPARAMETER ; 


spec 
LINE_NO.rw.v 


COL_NO.rw.v 
SS$_NORMAL 
SIDE EFFECTS: 
ACTUALCOUNT 
ERASE = 


NONE 


va 


p 
3. 


COMPLETION STATUS: 
BUILTIN 


FORMAL PARAMETERS: 

IMPLICIT INPUTS 
NONE 

IMPLICIT OUTPUTS: 
NONE 


++ 
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F 2 
Screen Management Jo~se0~ 1386 0: 8:1 AX-11 8B 
GE - Erase Page 14-Sep-1984 15:54:4 VMSLIB. 
LITERAL 
K_CURSOR_ARGS = 2, ! 2 args if Line_no & col_no present 
K-ERASE_SIZ = 25; ' size for erase_page seq buffer 
| eee this buffer is Large enough 
| *t#* to hold currently known 
| #tt* sequences. in the future, it 
{| ttt may have to be expanded. 
LOCAL 
TERM_TYPE, ! terminal type 
TCB ! ptr to terminal control block 
= STATUS; ! status retd by called routines 


TCB : REF BLOCK C,BYTE); 


STATUS = SCRSSGET_TYPE_R3 (SCRSC_ERASE_PAGE; TCB, TERM_TYPE); 
{ pet current TCB 

IF NOT .STATUS OR .TCB CSCRSB_TYPE] EQL VTFOREIGN 

THEN RETURN (.STATUS); 


4 

! If mapping is active, just clear the character and attribute maps. 
; oF mapping is inactive, set the cursor (if Line_no and col_no 
were specified) and output the erase page sequence. 


A CSCRSL_CHARMAP] NEQ 0 ! mapping active 


BEGIN 
— () EQL K_CURSOR_ARGS 


BEGIN ' store new cursor pos if Line, col spec 
TCB CSCRSL_LINE] = .LINE_NO; 
TCB CSCRSL-COLUMN] = .COC_NO; 


END; 
FILL_MAP (.TCB 
.1CB CSCRSL_LINE], 
TCB CSCRSL~ COLUMN 
SCRSW_DEVPAGSIZI, 
.TCB CSCRSW_DEVWIDTHI, 


. 

~ 
oO 
@ 


zc‘ ! fill maps with spaces 
TCB CSCRSL_ATTRMASK) = 0; clear OR'’d attr mask 
oor (SS$_NORMAL) ; 
SE ! mapping inactive 
BEGIN om 
LOC 


AL 
BUFFER : BLOCK (8 BrTG ds 


dsc for buffer 
CUR_BUF SIZ : INITIAL ( 
OUT-STATUS 


4 
' size of buffer 
pees retd by OUTPUT 


ERASE_LEN, ength of erase sequence 

ERASE PTR, ! ptr to_erase sequence 

TEMP_BUF : VECTOR CK_ERASE_SIZ, BYTE];! buffer to hold erase_page sequence 
BUFFER PBStse-t1he = DSCSK_DTYPE_T; 


BUFFER 
BUFFER 


DSCSB_CLASS) = DSCS$K_CLASS_S; 
DSCSA_POINTER] = TEMP_BUF; 


oad 
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! Set cursor only if Line_no and col_no were specified. 
;_ Otherwise just default fo current Cursor position. 


Lf ACTUAL COUNT () EQL K_CURSOR_ARGS 
BEGIN 
STATUS = SET_CURSOR (.TCB, .LINE_NO, .COL 
.BUFFER COSCSA POINTER 
Bay «STATUS THEN RETURN (.STATUS); 
CASE. TERM_TYPE FROM UNKNOWN TO VT100 OF 


NO, 
J, CUR_BUF_SIZ); 


es 


CUNKNOWN): 
BEGIN 
ERASE_LEN = 0; 
ERASE-PTR = 0; 
END; 
CvT05): 
BEGIN 
ERASE_LEN = %CHARCOUNT (VTOS_ERASE); 
ERASE“PTR UPLIT (BYTE (VTOS_ERASES); 
BEGIN 
ERASE_LEN = X%CHARCOUNT (VT52_ERASE); 
E“PTR = UPLIT (BYTE (VT52_ERASE)); 


CvT100): 
BEGIN 


ERASE_LEN = XCHARCOUNT (VT100_ ERASE); 
—- = UPLIT ( BYTE (VT100_ERASE)); 
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TES; 


CHSMOVE (.ERASE_LEN, 
-ERASE_PTR, .BUFFER COSCSA_POINTER] + .CUR_BUF_SIZ); 
! append erase seq fo set cursor seq 
BUFFER CDSCSW_LENGTH] = .ERASE_LEN + .CUR_BUF SIZ; 
' update Tength of buffer 
OUT_STATUS = OUTPUT (.TCB, BUFFER); 


IF NOT .OUT_STATUS THEN RETURN (.OUT_STATUS); 
RETURN (SS$_NORMAL) ; 
END; 
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LIBSSCREEN LIBSSCREEN = Screen Management 1b-se -1984 :28:1 AX-11 Bliss-32 V4.0-74 
ie 000 SCRSERASE_PAGE = Erase Page 1 730071382 99:98:13 VMSLIB SREISCREEN 03044 Page 463 
12 11 0009 BRB $ : 177 
57 5 po f 8$ MOVL 1 ERASE_LEN : 159 
0 FFSE i 3 7 MOVAB p Aan, ERASE_PTR : 1796 
57 qt po 9E 9$ MOVL i ERASE_LEN + 1801 
0 FFS8 OCF F V AAI, ERASE + 180 
51 24 =A 5 5 A6 10$ ADDL3 CUR BUF SIZ, BUFFER+4, R + 180 
61 $ 8 MOVCS ERASE LEN, (ERASE PTRS, (R1) : 
20. «AE 6E Al OOOAF ADDW3 CUR BOF_SfZ, ERASE_LEN, BUFFER : 181 
20 AE 9F 000B4 PUSHAB BUFFER : 181 
56 DD 00087 PUSHL cB ; 
0000v CF Q FB B9 CALLS #2, OUTPUT : 
3 E B BLBC Quf_sTATUS, 12$ + 1814 
0 01 DO 000C1 11$:  MOVL #1,7RO : 1816 
04 000C4 12$: RET + 1819 


; Routine Size: 197 bytes, Routine Base: _LIBSCODE + 03A3 
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ZSBTTL ‘SCRSPUT_BUFFER = Put Current Buffer to Screen or Prev. Buffer’ 
GLOBAL ROUTINE SCRSPUT_BUFFER ( 

) OLD_BUFFER 
= 


oe 
FUNCTIONAL DESCRIPTION: 
This routine is the converse of SCRSSET_BUFFER. It puts the 
contents of the current buffer to another buffer or the screen 
if no buffer is given. 
CALLING SEQUENCE: 
ret_status.wic.v = SCRSPUT_BUFFER (COLD_BUFFER.rv.rJ) 
FORMAL PARAMETERS: 
OLD_BUFFER.rv.r Optional. Address of the previous 
buffer to put the current buffer into. 


If not specified or zero, put current 
buffer to the screen. 
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7 NONE 
6 84 IMPLICIT OUTPUTS: 
6 84 
607 84 NONE 
608 $2 
rs Se COMPLETION STATUS: 
ali 32 SS$_NORMAL Normal successful completion 
618 $2 SIDE EFFECTS: 
615 85 The current buffer is output and reintialized to empty. If 
616 85 OLD_BUFFER is nonzero, it is established to become the new 
617 85 current buffer. 
618 86 - 
619 86 
620 86 BEGIN 
621 86 
6 § $6 BUILTIN 
6 6 NULLPARAMETER; 
624 206 
625 86 LOCAL é 
4 ] ye: STATUS, ! Status to be returned to caller : 
628 $70 CURR_BUFF : REF BLOCK C, BYTE), ! Current contents sf : 
° , 4 ! TCB CSCRSL_BUFFER : 
631 78 ADDR, ! Address of newly-specified buffer or ; 
$36 a ! zero (indicating no further buffering) : 
6 7 TERM_TYPE, ' dummy parameter - not used ; 
O35 rs - ‘2 | : 
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TCB : REF BLOCK C, BYTE) ; 


K 2 
SCREEN = Screen Management 16-Sep-1984 28:1 AX-11 
PUT_BUFFER = Put current Buffer to Screen o 197308= 1382 96:98:18 VMSLIB 
Pointer to current terminal 


control block 


SONS 


STATUS = SCRSSGET_TYPE_R3 (-1; TCB, TERM_TYPE) ; 
' Set up TCB address 
IF NOT .STATUS | request = foreign terminal handler 


! doesn't do this one 
THEN RETURN (.STATUS); 


= 
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+ 
Determine future buffer address. It will be either the user-specified 
; buffer address or zero. 


| 
ADDR = (IF NOT NULLPARAMETER (1) 
THEN ,.OLD_BUFFER 
ELSE 0) ; 
| 


1+ 
Save the buffer address currently active. 


"  CURR_BUFF = .TCB CSCRSL_BUFFER] ; 
\¢ 

Save the future buffer address in the terminal control block 
4 
| 


TCB CSCRSL_BUFFER] = .ADDR ; 


PAAAAAAAAAO oo Se 
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14 
If buffering was turned off, don't Limit future output to buffered size. 


IF .ADDR EQL 0 
TCB CSCRS$L_BUFSIZ) = BUFSIZE; 
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+ 
If there was no prior buffer, there is nothing to flush to the screen 


IF .CURR_BUFF EQL 0 
RETURN (SS$_NORMAL) ; 
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+ 
! There previously was some aut rerieg in effect, decide whether to 
flush it to the screen or move it into the newly-specified buffer. 


IF .TCB CSCRSL_CHARMAP] NEQ 0 
THEN 
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Best : gt My effect 
STATUS = SS$_NORMAL ; ! Assume success to follow 
IF .ADDR EQL 0 


SeSeSe 


BEGIN ! Butter ing no Longer in effect 
STATUS = PUT_MAP ( .TCB) ; ! Flush out what we've got 
ND; T Guttering no longer in effect 
eLsee ! Mapping in effec 
BEGIN ! No mapping in effect 
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LIBSSCREEN LIBSSCREEN = Screen Management 1b-se -1984 28:1 AX-11 Bliss- 4.0-74 
VOes000 SCRSPUT_BUFFER = Put lurfont Buffer to Screen o 1a-8ep-19 4 9G: 4:4 VMSLIB’ SREISCREEN  o3e07 Page 438 
; 1693 1935 LOCAL 
* 1990 13 8 - LOC_DESC : BLOCK (8, BYTE); 
3 199 3 4 | Build a descriptor describing current contents of buffer 
: 1698 1940 LOC_DESC DSCSW_LENGTH] = .CURR_BUFF CDSCS$W_LENGTH) ; 
3 1699 1941 LOC"DESC [DSC$B-CLASS) = Décex CLASS. § it 
3; 1700 1306 LOC_DESC [LDSCSB_DTYPE] = DSCSK_DTYPE T ; 
: 1fy) Pk LOC_DESC CDSCSA_POINTER] = .CURR_BUFF COSCS$A_POINTER] 3 
: 1708 1945 1+ 
178 4 j Peoee buffer control block to make it look empty. 
: 1706 1948 RR_BUFF : 
: 1708 1308 CURR_BUFF CDSCS$W_LENGTH] = 0 
; 1708 1950 
| ts? 
5 it 1988 STATUS = OUTPUT ( TCB, LOC DESC ); 
rig 132¢ : s ! No mapping in effect 
3 1714 1956 RETURN (.STATUS); 
; 1715 1957 1 END; ! End of routine SCRSPUT_BUFFER 
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001¢ 00000 .ENTRY SCRSPUT_BUFFER, Save R2,R3,R4 : 1822 
5E 08 C2 90002 SUBL2 #8, SP ~ ; 
50 01 : 000 MNEGL #1. R + 1881 
0000v 0008 BSBW © SCRSS$GET_TYPE_R3 ; 
54 51 DO 00008 MOVL Ri, R : 
58 50 EY 0000E BLBC STATUS, 6$ : 1883 
6c 3 00011 TSTB  —- CAP) : 1891 
0B 13 00013 BEQL «'1$ : 
04 AC 03 90015 TSTL  4(AP) : 
06 13 00018 BEQL ‘18 : 
51 04 BC DO OOOTA MOVL @OLD_BUFFER, ADDR : 1892 
0¢ 11 0001 BRB 2$ ; 
D4 00020 1$ CLRL ADDR : 1891 
52 04 A& DO 00022 2$ MOVL 4(TCB), CURR_BUFF : 189 
04 Ad 51 DO 00026 MOVL ADDR. 4(T¢B) : 190 
33 D4 00 A CLRL OR : 1908 
1 D8 C TSTL ADDR ; 
08 12 00 BNEQ 3 ; 
6 S INCL R 5 
4C AG 0200 ef MOVZ2WL #512, 76(TCB) : 1910 
2 D 3$: TSTL  CURR_BUFF > 1915 
04 1 A BNEQ ; 
50 1 p C MOVL #1, RO + 1917 
4 F RET ; 
18 AG OD 40 4$ TSTL 4(TCB) + 1923 
F 1 4 BEQL ; 
50 D 4 MOVL #1, STATUS : 1926 
21 5 - 4 BLBC ~=s_«aR3,._ «6S + 1927 
4 Dd 00048 PUSHL  TCB : 1930 


+ 
Output to previous buffer (or screen if TCB now contains 0) 


3 Routine Size: 


1 !<BLF/PAGE> 


SSCREEN = Screen Managemen 
SPUT_BUFFER = Put Current Butter to Screen 
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Routine Base: 


Dm 


x aut? ins DESC 


N 
Oe CREEN SCREEN = Screen Management 1973 
v04- PUT_LINE = Put Text to Screen in Line Mode 14-S 
ZSBITL ‘SCRSPUT_LINE = Put Text to Screen in Line Mode' 
GLOBAL ROUTINE SCRSPUT_LINE ( 
TEXT : REF BLOCK C,BYTEJ, 
LINE_ADV, 
FLAGS 
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FUNCTIONAL DESCRIPTION: 


This routine is used to write messages to the terminal 
followed by cursor movement sequences. 


! CALLING SEQUENCE: 


ret_status.wic.v = SCRSPUT_LINE (TEXT.rt.dx 
»LINE ADV.rl.v, 
»FLAGS.rl.vJ) 


FORMAL PARAMETERS: 
TEXT. rt.dx Address of descriptor of output string. 


LINE_ADV.rl.v Optional. Signed number of Lines to advance 
after output. 


FLAGS.rl.v Optional. Rendition codes. 
pr ear hted, SCRSM_NORMAL will be used. 
alues: 

SCRSM_BLINK display characters blinking. 

SCRSM_BOLD display characters in 
higher-than-normal intensity. 

SCRSM_NORMAL oreo yay characters usin 
rendition associated with 

window. 

SCRSM_REVERSE display characters in reverse 
video -- i.e., using opposite 
rendition from window default. 

SCRSM_UNDERLINE display characters underlined. 
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NONE 

001 
° IMPLICIT OUTPUTS: 
6 004 NONE 
64 005 
65 8 COMPLETION STATUS: 
e 09 SS$_NORMAL Normal successful completion 
+4 3i9 SIDE EFFECTS: 
71 \§ NONE 
6 1 - 
7 14 
74 15 BEGIN 
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16-Sep-1984 98 ees ese ebdessthekn O35, (18) 
REEN = Screen Management a at PS 71 4) 9 + ' 

Voesbogee SURES EINE - Put Text to Screen in Line Mode 14-Sep 

: 1775 1 tin | 
A BE co 
: 1778 1 

: 108 $39 _— (ZCHAR (CR))%, 

1589 $53 VISSTER = RETRING Cena (CR) 

: 1782 8 : VT100_CR = XSTRING (XCHAR (CR))&; 

ik o98 rt 2 if present 

g 10h 58 89 = ¢. ! Line_adv is arg 

: 1bBe 6 ; KIRA ARGS = ¢: : 3 args if all oresent 

3 1788 ; AY r devt from TCB 

1789 : STATOS “4 bre 24 + Tren called 3 pod a 

1730 833 igres. ! ptr to terminal control bloc 

: 1m $33 TMP’ E_ADV ' temp loc for hin Fe nay : 

: 1 b TMPFLAGS. : ! temp loc for rendition g 

: 1798 034 TMP-FLAGS; 

> 1794 035 i 

: 1998 $3 TCB : REF BLOCK C,BYTE); 

: 1788 039 ; l Block based on 

1399 bo 5 l tece the terminal type from the Terminal ere. F rs) 

: 1800 a ; i_whether this is a ote terminal or foreign term 

; 1801 : 

; TCB, TERM_TYPE); 

: 1808 opez § STATUS = SCRSSGET_TYPE_R3 aeepinks 3 Pi Dg 

; 1808 soda IF NOT .STATUS OR .TCB CSCRSB_TYPE] EQL VTFOREIGN 

: iBoe 88 § THEN RETURN (.STATUS); 

: 1807 048 

: 1809 & i Validate the number of arguments passed. 

> 1810 051 i 

; 13) 68 () EQL O OR 

Pigg BOS Bar actuatcoumr © co. O.0R, 

; ists shee EN RETURN (LIBS_WRONUMARG) ; | 
1818 §3f IF ACTUALCOUNT () LSS K_MAX_ARGS | 
; HE 35 ig NTMP FLAGS = SCRSM_NORMAL ! 3rd arg omitted - use default | 
; 18: : : . iti odes 

: is O62 = TMP_FLAGS = .FLAGS; ! use caller's rendition c 

: 18 § oz IF ACTUALCOUNT () LSS K_LINE_ARG 

; i $ re = NMP LINE_ADV = 1 ! 2nd arg omitted - use default | 
> 1825 -LINE_ 2 | 
; } 5 o6f LSE AP _LINE_ADV = .LINE_ADV; ! use caller's Lines to adva | 
; i ; : i*catt SCRSPUT_SCREEN to output tye text and then call SCRSUP_SCROLL 

: 1831 2072 i or SCRSDOWN_SCROLL to position it. 
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vrai SCRSPUT_LINE = Put Text to Screen in Line Mode 12-Sep- 7 ¢: 4:4 VASLIB SREISCREEN 63001 . (18) 

; 18 073 != ; 

; 18 , gre : ‘ 
: i 4 75 STATUS = SCRSPUT SCREEN (.TEXT, 0, 0, .TMP_FLAGS); : 

; 18 5 076 IF NOT .STATUS TREN RETURN (.SfATUS); ; 

: 18 $ ore IF .TMP_LINE_ADV LSS 0 : § 
: 1838 07 THEN ; 

> 1839 080 BEGIN a ¢ 
; 1840 081 INCR COUNTER FROM 1 TO (=. TMP_LINE_ADV) DO 3 ¢ 
3: 1841 Oa8 4 BEGIN 3 2 
3 1en8 083 4 STATUS = SCRSDOWN_SCROLL (); 3 

: 184 084 4 IF NOT .STATUS THEN RETURN (.STATUS); ; 

> 1844 085 : END; ; : 

> 1845 086 END ! negative Line adv = down scroll ; ¢ 
> 1846 087 ELSE g¢ 
: 1847 088 BEGIN a¢ 
; 1848 089 INCR COUNTER FROM 1 TO .TMP_LINE_ADV DO 3 ¢ 
3; 1849 090 4 BEGIN i 
; 1850 091 4 STATUS = SCRSUP_SCROLL (); B¢ 
3; 1851 3 4 IF NOT .STATUS THEN RETURN (.STATUS); $< 
; 1928 2093 3 END; i¢ 
; 1833 $038 2 END; ! positive Line adv = scroll up : § 
>; 1855 2096 TCB CSCRSL_COLUMN] = 1; ! reset cursor to col 1 $< 
: 1856 2097 34 
3; 1857 098 + $< 
: 1858 099 ! Determine if a <CR> should be output. a6 
: 1859 100 2 - a4 
; 1860 2101 2 ie 
: 1861 $106 § IF .TERM_TYPE NEQ 0 OR ' known terminal 3 ¢ 
$ 1868 210 .1CB [CSCRSL_BUFFER] EQL 0 ! buffering not enabled 3 ¢ 
3: 186 2104 ¢ HEN . 
3 1864 2105 BEGIN ' <CR> needed $4 
: 1865 $106 ; LOCAL ie 
: 1368 610% ; BUFFER : BLOCK (C8, BYTE]; ! buffer dsc for OUTPUT : § 
3; 1868 2109 BUFFER ett Ee Mas = DSCSK_DTYPE_T; 3 ¢ 
: 1869 2110 BUFFER COSC$B_CLASSJ = DSCSK_CLASS_S; Be 
; 1370 gi] BUFFER COSC$WILENGTH] = 1; : § 
; 1376 $118 CASE .TERM_TYPE FROM UNKNOWN TO VT100 OF 34 
: 187 114 SET s¢ 
3: 1874 115 $ 

; 1875 138 CUNKNOWN) : : 

3; 1876 11 4 BEGIN 3 

; 1877 118 4 BUFFER poscey Lusty? = 0; : 

> 1878 119 4 BUFFER CDSCSA~POINTER) = 0; : 

; 14 : 9 END; : 

3 1381 1 ¢ CvT05): 3 

; 1056 : i BUFFER CDSCSA_POINTER] = UPLIT (BYTE (VTO5_CR)); ° 

: 1884 125 Cv152): $< 
: 1 ! § BUFFER CDSCSA_POINTER) = UPLIT (BYTE (VT52_CR)); : § 
3 1886 1 3 CvT100): ; ‘ 
; 1888 1 BUFFER CDSCSA_POINTER] = UPLIT (BYTE (VT100_CR)); : 
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LIBSSCREEN - Screen Management J9- sen" 1986 09:98: ]8 AX-11 Oi ieg-3e V4.0-74 
SCRSPUT_LINE = Put Text fo Screen in Line Mode 14-Sep-1984 54:4 VMSLIB.SRCJSCREEN.B32; 
>; 1889 130 
; 1890 131 CINRANGE ,OUTRANGE): 
> 1891 1 ¢ RETURN 0; ! should never get here 
: 189 1 
; 189 134 TES; 
>: 1894 135 
: 1895 1 8 STATUS = OUTPUT (.TCB, BUFFER); ! output a <CR> 
; 189 1 IF NOT .STATUS THEN RETURN (.STATUS); 
3; 189 138 END; 
: 1898 139 
: 1899 140 RETURN (SS$_NORMAL) ; 
; 1900 141 «1 END; ! End of routine SCRSPUT_LINE 


00405 .BLKB 3 
OD 00408 P.AAJ: ASCII <13> 
00409 *BLKB 
OD 004DC P.AAK: ASCII <13> 
00400 “BLKB) 3 
OD 00460 P.AAL: ASCII <13> 
OOFC 00000 .ENTRY SCRSPUT_LINE, Save R2,R3,R4,R5,R6,R7 
57 FD73. CFO 9000¢ ROVAB SCRSDOWN_SCROLL, R7 
SE 08 C2 0000 SUBL2 #8, SP 
50 07 b 0000A MOVL 7; RO 
0000v 30 0000D BSBW SCRSSGET_TYPE_R3 
54 51 D0 90019 MOVL 1, R4 
SF 50 EY 0001 BLBC = STATUS, 12$ 
04 OA A& 91 00016 CMPB =s-:- 10 TCS, 
01 12 OOO1A BNEQ 1$ 
04 0001C RET 
6C 93 9001p 1$: TSTB ~—_ CAP) 
05 13 OOO1F BEQL 2$ 
03 6C 91 00021 CMPB sé AP), #3 
08 18 0024 BLEQU 
50 000000006 8F DO 00026 2$: MOVL § #LIBS_WRONUMARG, RO 
04 0002D RET 
g4 1E 0002E 3$ BGEQU 4$ 
1 04 G00 CLRL ‘ TMP_FLAGS 
04 11 000 BRB 
51 Oc Ac pO 00 4$: MOVL FLAGS, TMP_FLAGS 
02 6c 91 5$: CMPB sé AP), #2 
7 3 0 BGEQU 
53 1D MOVL #1, TMP_LINE_ADV 
4 11 0004 BRB 7 
53 08 ac dO 0 4 g$: MOVL LINE_ADV, TMP_LINE_ADV 
31 DD 46 7$: PUSHL TMP FLAGS 
— 7C 0 4 CLRQ. ss =(S 
04 AC DD OO04A PUSHL TEXT 
0000v ct ae 4 CALLS #4, SCRSPUT_SCREEN 
8 7 BLBC STATUS, 24$ 
D TSTL TMP_LINE_ADV 
13 1 0 BGEO 
56 53 CE 9 MNEGL TMP_LINE_ADV, R6 
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D4 ie 
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Ve e000 PUT SCREEN = Put Text to Screen ett Pk eet me Ce et TS rd ee Set 29° 19) 
903 1 ZSBTTL ‘'SCRSPUT_SCREEN = Put Text to Screen' 
904 1 GLOBAL ROUTINE SCRSPUT_SCREEN ( 
st : rext a : REF BLOCK C,BYTE], 
309 ; COL_RO, 
1 FLAGS 
1 )z 
1 l+¢ 
! FUNCTIONAL DESCRIPTION: 
: This routine is used to write messages to the terminal. 
| CALLING SEQUENCE: 
: ret_status.wic.v = SCRSPUT_SCREEN (TEXT. rt.dx 


C,LINE_NO.rl.v, 
con NOTE ad 
' FORMAL PARAMETERS: 


TEXT. rt.dx Address of descriptor of output string. 


LINE_NO.rl.v Optional. Line number at which to start output. 
If omitted (=0), the current Line number is 


WOOD OODOOOODDODODODODDOODDOGODDDDODOODOODODOOOO 
WWNIWAIAIPIPIPOPINPYNIMPINPINIDY 4 PP OO OO Om OOO 
COODWNAUES WN OO ONOUS WN “OVO ONOULSWN OOO 

OWONOAUE WN O OONAU EWN $0 ODNA UE AN SO OONAUV EWN" OODNOULSW Oe 


ee a ee a le me me a ee ee ee ee Be a ed ed dd od od od ed on 


ee ee ee ee ee ee eee eS SY 
POPRIPOPOPOPPINIPINIPINININONONIPOPIPIPIPYNIPYPIPYPIPINPIPIPIPINPIPIPUPPUNIPINIPOPIPIPUPIPIPOPIPUPUPOPOPPUPUNINUND ow 
bE A 8 het tet tet eter PPT ON ey Se FE EY yt tt a a ay zw 


Se Se Se Be Se Be He Se Fe Be Ge Fe Se Se Se Ge Be Se Ge Se Se Ge Fe Se Se FH Ss Se Se FF Se Se Se SH Se FHS SH Se SH Se Se SHS Se ee SSeS Se Se Se Sees Seeee 


i 
i 
i 
i 
i 
! 
1 | 
: FLAGS. rl.vJ) 
1 i 
 e 
1 { 
eS: 
1! 
1! 
: used. 
1! COL_NO.rl.v Optional. Column number at which to start 
1! output. If omitted (=0), the current Line 
: number is used. 
3 1! FLAGS.rl.v Optional. Rendition codes. 
3 1! If omitted, SCRSM_NORMAL will be used. 
3 1! Values: 
3 4 SCRSM_BLINK display characters blinking. 
3 7% SCRSM_BOLD display characters in 
3 1! higher-than-normal intensity. 
4 1: SCRSM_NORMAL ol sp tay characters usin 
41 1! rendition associated with 
“g ; ; window. 
94 1} SCRSM_REVERSE display characters in reverse 
944 ze. video -- i.e., using opposite 
945 1! rendition from window default. 
308 i } SCRSM_UNDERLINE display characters underlined. 
948 1 ! IMPLICIT INPUTS: 
949 1! 
950 7! NONE 
951 1. 34 
326 § 1 ! IMPLICIT OUTPUTS: 
95 1! 
954 41! NONE 
955 . 3% 
329 $ : COMPLETION STATUS: 
388 3 ' SS$_NORMAL Normal successful completion 
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' SIDE EFFECTS: 
NONE 
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BEGIN 


UILTIN 
ACTUAL COUNT 
ACTUALPARAMETER, 
NULLPARAMETER; 


1+ 

! $SCR_APPEND 

! Macro SSCR_APPEND appends the specified source string into the specified 
! output buffer. It assumes that IN POINTER oints into a buffer 

! BUFFER whose overall length is .TCB CSCRSL_BUFSIZ) 

4 apes as much of the input string as will fit, and updates 

' the 

le 


MACRO 
$SCR, APPEND ( IN_LENGTH, IN_POINTER, OUT_POINTER) = 


LOCAL 
AMT_TO_MOVE; ! No. bytes that will fit 


AMT_TO_MOVE = IN_LENGTH ; ! Assume all will fit 

'¢ 

! If space remaining is less than space needed, Limit move to 
amount that left. 


if .TCB CSCRSL_BUFSIZ] - (.OUT_POINTER - .BUFFER) ! space remaining 
LSS IN_LENGTH ! space needed 


HEN 
AMT_TO_MOVE = MAX (0, he gt BUFSIZ] - (.OUT_POINTER - .BUFFER)); 


uffer pointer by the number of bytes moved. 
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64 $ on't allow a negative Tength 
998 8 CHSMOVE ( .AMT_TO_MOVE, ' Length 
999 9 IN_POINTER ' source addr 
900 9 .O0T_POINTER); i dest. addr 
008 g OUT_POINTER = .OUT_POINTER + .AMT_TO_MOVE ; ! Advance pointer 
004 4 “! End of macro $SCR_APPEND 
005 45 
B08 +8 LOCAL 
00 4 TCB : REF BLOCK C, BYTE), ' Pointer to current terminal 
a3 $8 ' control block 
4 TYPE, ' device type 
010 50 STATUS ' Status to return to caller 
gt 51 LOC_DESC : BLOCK (8, BYTE); i Local descriptor 
38 an 
Big 2 : Set up pointer to current terminal control block 
O16 33 STATUS = SCRSSGET_TYPE_R3 (SCRSC_PUT_SCREEN; TCB, TYPE) ; 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 :28:1 AX-11 Bliss-32 V4.0-74 P 5 
Voe~000 SCRSPUT_SCREEN = Put Text to Screen 14-Sep-19 4 98: 4:4 VMSLIB.SRC SCREEN 83061 29° 4135 
; 2017 7 IF NOT .STATUS OR _.TCB CSCRSB_TYPE] EQL VTFOREIGN : 
: 018 8 THEN RETURN (.STATUS); | ; 
; 201 | : 
; 2020 60 + 3 
: 5 1 o See if mapping or buffering is in effect : 
: 20 5 8 "IF .TCB CSCRSL_CHARMAP] EQL 0 OR ! If no mapping : 
: 3 3 rf: -TCB CSCRSL_BUFFER] €EQL ! or no buffering : 
; ° 8 68 BEGIN ! No buffering or no mapping or neither ; 
: 20 68 IF ACTUALCOUNT() EQL 1 ; 
; 20 § +4 THEN F 
; 2030 0 4 BEGIN ! Only 1 arg 3 
3; 2031 71 4 LOCAL : 
: ; § ie ? LOC_DESC : BLOCK (8, BYTE]; ' Local descriptor : 
: 2034 74 4 i Extract Length and address of callers text. If descriptor : 2 
3; 2035 st 4 ' has ynrecogn ized class code, quit. Otherwise, build 3¢ 
; 2036 76 4 ' local fixed-length descriptor to describe text string 3 
3 tH sit ? : to OUTPUT for outputing. : 
3 2039 379 > if NOT ( STATUS = LIBSANALYZE SDESC_R2 (iGet len. and addr ; 
> 2041 281 : LOC_DESC CDSC$W_LENGTH] ; 
; O62 382 ; a LOC“DESC CDSCSA-POINTERS)) : 
> 2064 2284 4 RETURN (.STATUS ); : 
3; 2045 85 4 3 
3 2046 286 4 '+ 3 
3; 2047 287 4 ' Complete descriptor and do output 3 
: 2048 288 4 i- : 
3 2049 289 4 LOC_DESC ppstse .cLAs3 = DSCSK_CLASS_S ; ee | 
; $031 g70 & LOCDESC CDSCSB~DTYPE] = DSCSKIDTYPE-T ; 2 § 
: O5¢ 292 4 STATUS = OUTPUT ( .TCB, LOC_DESC ) ; $2 
: 205 293 4 END ! Only 1 arg 3 § 
: 2054 294 3 : 
; 2055 295 4 BEGIN ! More than one arg $4 
3 B28 44 4 LOCAL 
: $088 35 ABORT Y Kaolese af tatters teak carte 
; bap He ? BUFFER : REF BLOCK C, BYTEJ, reigter to allocated 
3 ' buffer 
; Oe 301 rt BUF _PTR, Pointer ing SUFFER 
3 ' as s e 
3 $68 08 4 ATTR_GIVEN; ' Flag to record 
3: 2064 4 & ' whether an attribute 
3; 2065 5 4 : setting was placed in 
; s006 $ & ' the buffer and a ‘turn | 
: 206 07 4 ! off graphic’’ rendition 
: $088 mf Lat the end of but ee | 
; $90 10 3 IF NOT (STATUS = LIBSGET_VM ( TCB CSéRSL_BUF SI? . | length” | 
: $4 : ? — BUFFER)) ' returned addr | 
: O78 18 4 RETURN (.STATUS ) ; | 
| 
} 
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BUF _PTR = .BUFFER ; ! Initialize to front of buffer 


ATTR_GIVEN = 0; ' Assume we won't be outputing 
! attribute sequence. 
IF aor NULLPARAMETER (4) ' FLAGS present 


BEGIN ! Flags present 
CASE . TYPE FROM UNKNOWN TO VTFOREIGN OF 
CUNKNOWN, 
vT05, 
vT52 
VTFOREIGNI: 
a3 ! Do nothing 


CINRANGE, OUTRANGE): 
RETURN ( LIBS_FATERRLIB ) ; 


CvT100): 
BEG! ! VT100 processing 


i Make sure MBZ bits in high end of longword 
' are in fact zero. 


if .FLAGS<16,16> NEQ 0 


T 
4 
4 
4 
4 
4 
4 
6 
6 
6 
6 
0 6 
100 6 
6 HEN 
? RETURN ( LIBS_INVARG); ! Undefined bits set 
; 
7 
7? 
7 
7 
7? 
4 
7? 
7? 
7? 
7 
? 
7? 
? 
: 


IF .FLAGS<0,4> NEQ 0 
THEN 


BEGIN ! Attributes set 
ATTR_GIVEN = 1 ; ! Record that we will be 
' outputing attribute 
: escape sequence 
CHSWCHAR_A ( ESC, BUF_PTR) ; 
CHSUCHAR_A ( LB, BUF_PTR) ; 


' For each attribute bit set in the fl 
' parameter, copy the appropriate ASCI 
: grapare rendition byte followed by a 
' into our temporary buffer BUFFER. 

} Note use of autoincrementing. 


NCR 1 FROM 0 TO 3 


BEGIN  ! Build att 
BIND ATTRTABL = 4" 


rib 
i 
IF .FLAGS<.1, 1>. 
THEN 


ECT 


o-c 


BEGIN 

CHSWCHAR_A ( .ATTRTABL C.1), 
CHSWCHAR_A ( XC'S', BUF_PTR); 
END; 
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* END; ! Build ettribute string 
i when we fall out of loop above we have 
! deposited an extra ‘';'' at the end of the 
! buffer, Back up BUF_PTR so that deposit 
tof VT100_SGR Lands of top of it. 


BUF PTR = .BUF_PTR = 1 ; 
CHSQCHAR_A ( VT100_SGR, BUF_PTR) ; 


END; ! Attrib: tes set 
Tes: END; ! VT100 processing 


END: ! Flags present 
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+ 

' If cursor position was specified on call, 
invoke SET_CURSOR to get us there. 

iF NOT NULLPARAMETER (2) 

THEN 


BEGIN 
LOCA 
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RET_LEN : INITIAL (0); 
SET_CURSOR ( .TCB, .LINE_NO, .COL_NO, .BUF_PTR, RET_LEN ); 
BUF-PTR = .BUF_PTR + .RET_LEN; 


. 
+ 


IF NOT ( STATUS = LIBSANALYZE_SDESC_R2 ( .TEXT: 
LENGTH 


ADDR))* 
THE 


PARQ NII - 


N 
RETURN ( .STATUS ) ; 


14 
Insert callers text 


SSCR_APPEND ( .LENGTH, .ADDR, BUF_PTR) ; 
IF .ATTR_GIVEN 
THEN 
BEGIN ! Insert VT100_OFF 
MACRO 
OFF = ZSTRING ( BGnA 


D ( XCHARCOUNT 
UPLIT ( BYTE ( VT100 
UF_PTR) ; 
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END; ! Insert V1T100_OFF 


‘+ 
! Build local descriptor referencing the intermediate buffer 
we've been contructing and output it. 


LOC_DESC [DSC$W_LENGTH) = 
LOC-DESC 
LOC"DESC 


PRR ARL LEPINE BERR ERE ERNE BUI BBB BEE EIEN NANA 


Be Se Oe Oe Os Se Be He Se Be ve Be Se Be Se Se Ge Fe Ge Se Ge Ge Se Ge Se Ge Ge Se FH Ge Os Se Ge Se Se Se Se Se Se Se Fe SH Ss Se Se Se SH Se Se Se See Se Se Se eees 


ek ed et od = od = = 


ROPoPoNoNoMononsPononononsngyny 


DSCSB-CLASS] = 
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LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 
SCRSPUT_SCREEN = Put Text to Screen 1 ~3007 138% ¢: 4:4 VMSLIB. SRCISCREEN.B32; Page 435 
: 2 4 LOC_DESC COSCSA_POINTER] = .BUFFER; 
188 4 : STATUS = OUTPUT~( .TCB, LOC_DESC 5 ; 
3 23 r 
38 : § Give back buffer space we've been using 
3% 4 4 LIBSFREE_VM ( TCB CSCRSL_BUFSIZ3, BUFFER }; 
5 : $ END; ! More than one arg 
98 : 3 END ! No buffering or no mapping or neither 
ree ELSE 
44 BEGIN ! Buffering and mapping acti 
44 LOCAL . tie Sige 
444 LENGTH, ' Length of callers string 
445 ADDR, ! Address of callers piecing 
44 INDEX, ' Linear index into character buffer 
44 CURR_LINE, ! Line at which to set cursor 
CURR_COL; ! Column at which to set cursor 


i Set up cursor arguments. Assume the ones from the TCB but 
overwrite if user has specified. 


CURR_LINE = .TCB CSCRSL_LINE) ; 
CURR“COL = .TCB CSCRS$L~COLUMND ; 

IF NOT NULLPARAMETER (2) AND | If Line_no supplied 
nen NULLPARAMETER (3) ! and col_no supplied 


BEGIN ! User-suppl‘ed cursor position 
CURR_LINE = .LINE_NO ; 

CURR_COL = .COL_NO ; 

Reset cursor position in TCB to new values. 
TCB CSCRSL_LINE] = .LINE_NO ; 


TCB CSCRSL-COLUMN] = .COC_NO'; 
END; ! User-supplied cursor position 
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t+ 
! If specified starting Line is beyond the bottom of the 
screen, quit immediately, but call it a success. 


If CURR_LINE GTR .TCB CSCRSW_DEVPAGSIZ] 
RETURN ( SS$_NORMAL ) ; 


SS a ee wnbusnecos ooooooo 


+ 
Calculate zero-based Linear index into buffer 


INDEX = (.CURR_LINE - 1) * .TCB CSCRSW_DEVWIDTH] + 


([CURRTCOL = 1) ; 


'¢ 
! Extract length and address of callers text string. If 


. . . . . . . 
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SCRSM_NORMAL) ; 


'¢ 
If any attributes turned on, fill them into the attribute map 


if .TCB CSCRSL_ATTRMASK] NEC 0 
CHSFILL ( CLF ACTUAL COUNT () EQL 4 
ELSE SCRSM_NORMAL), ! FILL char 
LEN ' No. of bytes 
-TCB CSCRSL_ATTRMAP] + INDEX) ; / Dest. address 


STATUS = SS$_NORMAL ; 
END; ! Buffering and mapping active 


RETURN (SS$_NORMAL); 
END; 
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! End of routine SCRSPUT_SCREEN 
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LIBSSCREEN LIBSSCREEN = Screen Management 1b-se -1984 :28:1 AX-11 Bliss-3 
Loe e800 SCRSPUT_SCREEN = Put Text to Screen 1 ~8ep-19 4 0g: 98:18 VMSLIB.SRCJSCREEN.B 
: rf ri 5 ; unrecognized class of descriptor, quit. 
; r ri ? if NOT (STATUS = LIBSANALYZE_SDESC_R2 ( . TEXT; LENGTH, ADDR)) 
: 224 489 RETURN ( .STATUS) ; 
3 490 
$ 491 + 
: 2 138 If Length of users text reaches beyond end of buffer, quit 
i 2 494 iF .LENGTH + INDEX GTR .TCB CSCRSL_AREA] 
: 3 496 RETURN ( LIBS_SCRBUFOVF ); 
: $56 198 
: rh TCB CSCRSL_COLUMN] = .TCB CSCRSL_COLUMN] + .LENGTH ; !#8877?008 
: 226 501 rr 
: rs 206 Move users text into mapping buffer 
: 64 304 CHSMOVE ( .LENGTH, .ADDR, .TCB CSCRSL_CHARMAP] + .INDEX ) ; 
> 226 306 1+ 
: 6 50 ' Check for attributes for this text and set up our attribute 
: 226 508 ' mask. 
BR Bo ha aoe 
: 7 511 TCB CSCRSL_ATTRMASK] = .TCB CSCRSL_ATTRMASK] OR 
; f 21¢ : EL ane ane mT () EQL 4 ! flag arg passed 
: , a 4 (NOT (.TCB CSCRSL_DEVCHAR])) AND .FLAGS 
: 227 $318 3 
: 7 seit 
$ 7 518 ; 
3; 227 2519 
: $58 31 3 
3 228 38 
; 35 
; 5 
; ; 
; : 
; 5 
3 5 
3 533 1 


a 


- 
LIBSSCREEN LIBSSCREEN - Screen Management -Sep- AX-11 Blis 7 0-74 p 
boee000 SCRSPUT_SCREEN = Put Text to Screen 12-8287} -1 38 9¢: 8: 18 VMSLIB.SRC he3sth CREEN Boe age $9 
OFFC 00000 ENTRY SCRSPUT T SCREEN, Save R2,R3,R4,R5,R6,R7,RB,- = 21446 
SE 18 C2 0000 SUBL2 igh, 7” : 
5 bs CLRL. OR + 2256 
0000v BSBW  SCRSS$GET_TYPE_R3 : 
9 0 OD A MOVL RO, STATOS 8 
7 a D MOVL Ri, R7 : 
4 é D 19 MOVL 2, R4 : 
06 : 1 BLBC STATUS, 1$ + 2257 
4 OA A? 16 CMPB 3=s«WO(TCBS, #4 : 
03 1 1A BNEQ $ : 
O1A1 3 1C 1$: BRW 0$ 3 
18 A? DS OOOTF 2$: TSTL 4(TCB) + 2263 
08 13 00022 BEQL $ : 
04 A? D 990 4 TSTL «=. & (1B) + 2264 
03 13 00027 BEQL 6 3$ : 
014A 31 999 9 BRW 18$ ; 
01 g¢ 1 0002C 3$: CMPB ss AP), #1 > 2268 
E ff 900 F BNEQ 4$ : 
50 04 AC 00 00031 MOVL ‘TEXT, RO > 2281 
000000006 90 if: 0035 JSB LIBSANALYZE_SDESC R2 : 
59 0 dO 00038 MOVL RO, STATUS : 
08 AE 51 8B 0035 MOVW  R1. LOC_DESC ; 
OC A 3g DO 0004 MOVL  R2, LOCTDESC+4 > 2282 
D 59 €9 00046 BLBC STATUS, ~“1$ : 2281 
OA AE 010E 8F BO 00049 MOVW #270, LOC_DESC+2 ; 90 
08 AE OF OO04F PUSHAB LOC_bESC ~ > 2292 
57 OD 00052 PUSHL  TCB ; 
0000v CF 08 FB 0054 CALLS ae, OUTPUT ; 
59 5 0099 MOVL RO, STATUS F | 
O1AE 31 0005¢ BRW 28$ : : 68 
04 AE F OOOSF 4s: PUSHAB BUFFER : 2310 
4C A? OF 0062 PUSHAS 76(TCB) ; 
000000006 00 02 FB 0006 CALLS #2, LIBSGET_VM ; 
59 50 4 006C MOVL R STATUS 3 
AA 59 ~«€£ 006 BLBC STATUS, 1$ : 
SA 04 AE 00 0072 MOVL BUFFER, R10 + 2315 
56 ‘ ) OR 78 MOVL R10, BUF_PTR 3 
B D4 0007 CLRL ATTR_GIVEN ; 3 17 
04 6¢ 91 0078 CMPB (AP) 4 : 2319 
1F 0007 BLSSU -10$ ; 
10 AC D3 08 STL ICAP) : 
46 1 EQ. =s-_:«10$ : 
04 0 54 CF 08 CASEL TYPE, #0, #4 > 2323 
0047 004 0047 0 9 5s: <WORD 10$-5$,- ; 
0047 00091 $-38.- : 
63-5§ : ; 
10$-5$ ; 
50 000000006 8F BO 0095 HOVL #LIBS_FATERRLIB, RO ; 2332 
12 =A é 9B 6$: TSTW FLAGS#2 > 2340 
g 9 BEQL 7 3 
50 000000006 8F v6 A MOVL #LIBS_INVARG, RO 3 2342 
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4 
REEN = Screen Management 1$-sep-19 4 99:98:18 AX-11 OL ieg-3e V4.0=742 
T BUFFER = Set/Clear Buffer Mode 14-Sep-1984 15:54:4 VMSLI8.SRCIJSCREEN.B32;1 
ZSBITL 'SCRSSET_BUFFER = Set/Clear Buffer Mode’ 
GLOBAL ROUTINE SCRSSET_BUFFER ( 


BUFFER : REF BLOCK C,BYTE) 
; OLD_BUFFER : REF VECTOR £,LONGS 
144 
' FUNCTIONAL DESCRIPTION: 
This routine is called to establish a buffer to be used to hold 
terminal output rather than immediately writing the output to 
SYSSOUTPUT. It is also called to turn off the buffering mode. 
The buffer address is established such that all screen output 
is appended to the end of the buffer. 
i CALLING SEQUENCE: 


ret_status.wic.v = SCRSSET_BUFFER (BUFFER.mt.dx 
C,OLD_BUFFER.wl.rJ) 


i FORMAL PARAMETERS: 


BUFFER. mt.dx Address of descriptor of buffer. If 0, 
buffering mode is turned off. 


! 

! 

' 

1 

! 

1 

! 

! 

' 

' 

t 

1 

! 

' 

! 

' 

! 

! 

! 

: OLD_BUFFER.wl.r Optional. Address of the location which will 
contain the address of the previous buffer. 
! 
! 
1 
i] 
1 
1 
+ 
' 
| 
i] 
1 
' 
i] 
! 
! 
! 


i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
i SIDE EFFECTS: 
NONE 


NT 
ACTUALPARAMETER, 
NULLPARAME TER; 


LOCAL 
TCB : REF BLOCK C, BYTE], !' Pointer to current terminal 
' control block. 


TERM_TYPE, ! dummy parameter - device type 
STATOS; A 
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LIBESCREEN LIBSSCREEN - Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 64 
sass SCRSSET_BUFFER = Set/Clesr Buffer Mode 1 Ha Yi 9¢:¢8:18 VMSLIB SREISCREEN O52 4 ° (28) 
$ 3 3 LITERAL 

: 2 37 K_MAX_ARGS = 2; ! # of args if all present 

: 95 ‘+ 

3 5 39 ! Get current device type and set up our pointer to the terminal 

; . of control block. 

; 2360 99 STATUS = SCRSSGET_TYPE_R3 (-1; TCB, TERM_TYPE) ; 

; 2561 600 ! =1 request - fore gn terminal handler 

3 o¢ 601 ! doesn’t do the action 

: 6 O06 IF NOT .STATUS THEN RETURN (.STATUS); 

3: 2364 60 

; 2365 604 + 

3 $1 eRe If no arguments provided, error. 

3 ae 607 IF ACTUALCOUNT () LEQ O OR 

; 3370 3008 ACTUALCOUNT () GTR K_MAX_ARGS 

; 2371 610 RETURN ( LIBS_INVARG ) ; ! #** Should be LIB$_WRONUMARG 

: sale 2611 

3s gor sols + 

: 2374 261 ! If 2nd parameter supplied, return current buffer address from TCB 

; 236 sole before changing it. 

3; 2377 616 IF NOT NULLPARAMETER (2) 

3; 2378 617 THEN 

: 2379 618 OLD_BUFFER CO] = .TCB CSCRSL_BUFFER] ; 

; 2380 sel? 

: 2381 620 '¢ 

z Stee 2621 ! See if a new buffer address is being provided, or whether caller is 

; Seer 6 ; : just cancelling buffering. 

3; 2385 3634 IF NOT NULLPARAMETER (1) 

3 Seno 625 § THEN 

3; 2387 2626 BEGIN ! New buffer descriptor address provided 

3 te 4 3 LOCAL 

3; 2389 628 STATUS, ' Error status to return to caller if need be 

; Seon O62 LENGTH : WORD, ! Length gt buffer provided by caller 

> 2391 630 ADDR : REF VECTOR C,CLONG); 

; 308 631 ' address of buffer provided by caller. We 

3; 239 O36 ' declare it as a vector of longwords since 

3 2394 6 ' we need to write control information into the 

3; 2395 634 ! Ist longwords. The rest of the screen 

; 38 o34 ! routines think of it as a block of bytes. 
3 $05 ; 4 i (STATUS = LIBSANALYZE_SDESC_R2 ( .BUFFER; LENGTH, ADDR )) 
; 2400 o38 RETURN (.STATUS) ; ! Bad descriptor class 
3 2401 640 
: rt 641 '¢ 
: 240 oh§ ' Length of buffer provided must be greater than 12 bytes or 
3 2404 64 ! we can't rea; ty use it since we use the Ist 12 bytes to 
: 2405 644 ' store control information. 
: rts 645 !- 
3: 24 O68 IF .LENGTH LEQ 12 

: rt 64 HEN 
: 26 648 RETURN ( LIBS_SCRBUFOVF ) ; 
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LIBSSCREEN LIBSSCREEN - Screen Manageme 16-5e -1984 02:28:1 AX-11 Bliss-32 V4.0-74 P 
Voe e000 SCRSSET_BUFFER - Set/tlesr Buiter Mode 1 ~3eP 71 ORF 99:98:18 VHSLIB SREISCREEN  O3507 age $3 
> 2410 649 ; 
3 241) $2 t+ ; 
: at ? ; Initialize control information at top of buffer provided. ; 
: 2414 63 ADDR 0) = ' Used Length set to zero ; 
> 2415 654 ADDR ES ‘ = Roba C3) ; ' Address Sf start of usable buffer area : 
3 ci$ 655 i beyond control information ; 
: tif $28 ADDR (2) = .LENGTH = 12 ; } pe yet Length of remaining ; 
: 5419 658 TCB ESCRSL BUFFER] = ADDR L Eis af can button F 
; 2420 659 ie SCRSL_ -BUFSIZ a P33; i Save size of buffer used ; 
; : 1 se90 New “Sutter descriptor address provided ; 
3: 24 § 66 BEG! : canees buffering ; 
3s 2426 66 TcB Cscrsi_ BUF FER) = $ 
> 2625 664 TCB CSCRSL-BUFSIZ) = BUFSIZE; ; 
: : 8 oe? END; ! Cancel buffering : 
; 5056 2667 RETURN (SS$_NORMAL); ; 
; 2429 2668 1 END; ! End of routine SCRSSET_BUFFER ; 3 
3 ¢ 
001C 00000 ENTRY SCRSSET_BUFFER, Save R2,23,R4 : 2536 . 
50 01 43 0000 MNEGL #1, R 3 2599 F 
0000v 30 0000 BSBW SCRSSGET_TYPE_R3 : ; 
54 51 DO 00008 OVL R1, R4 : $< 
66 50 £9 00008 BLBC = STATUS, 7$ : 2602 7 @ 
6C 95 peaoF TSTB (AP) : 2607 3 
05 13 0001 BEQL 1$ g FY 
02 6C 91 poole CMPB (AP), #2 3 2608 3 
08 1B 0001 BLEQU 2$ 5 3 
50 00000000G 8F »D0 geet 1$ MOVL #LIBS_INVARG, RO 3 2610 3 § 
04 OOO1E RET 3 3 
OA 1F OOOIF 2$ BLSSU $ 3; 2616 $ 
08 AC oF B09 1 TSTL (AP) : ; 
05 1 024 BEQL $ : 3 
08 BC 04 A4 3 0026 MOVL 4(TCB), @0LD_BUFFER : 2618 $ 
C 0028 3$ TSTB (AP) : 2624 3 
9 13 00020 BEQL 5$ 3 3 
04 AC D O002F TSTL 4 (AP) : é 
3% («WI 8 BEQL 5$ 5 3 
50 gs AC D MOVL BUFFER 3: 2637 3 
000000006 09 if 9 JSB CIBEANALZE, SDESC_R2 ; : 
3 E ‘. BLBC STATUS : é 
0c 1 Hs 064 CMPW err. #i2 3; 2646 é 
8 1A 5 44 BGTRU 4 : ; 
50 00000000G 8F 0 re move #LIBS_SCRBUFOVF, RO > 2648 : 
6 4 4E 4$ CLRL (ADDR) ; 2653 : 
4 A 0c A E MOV 12(R2), 4 (ADDR) : 2654 3 
4 A MOVZWL Lents 8( ADDR) : 2656 b4 
A C SUBL2 #12, 8(ADDR) : : 
4 AG D D MOVL ADD? 478) : 36 8 : 
4C AG 08 A2 D 61 MOVL 8(ADOR), 76(TCB) > 2659 : 


LIBSSCREEN nagemen gep- =| AX-11 Bliss- 4.0-74 Page 66 
voe2000 leer Suffer Mode Sep- 71382 96: gf: 18 VMSLIB.SRC sth etn N.B32; (285 
09 BRB 6$ : 2624 

4 0? $ CLR 4(TCB : 2663 

0200 + MOVZWL #5 760 T CB) 3: 2664 

MOVL #1, RO ; 2667 

RET ; 2668 


; Routine Size: 117 bytes, Routine Base: _LIBSCODE 


; 2430 2669 1 !<BLF/PAGE> 


K_CURSOR_SIZ = 20; ' size for cursor seq buffer 
| ttt more than Large enough 
! #** for currently known 
***® sequences - may need 


*t#* to be bigger some day 


STATUS, ' status retd by called routines 
te BLOCK 4. ovis. ' buffer dsc for OUTPUT 
TCcB B ptr to Terminal foots lL Block 


: REF BLOCK YTE 
YPE dum ant parameter = device type 
CURSOR _Buf : VECTOR CK_CURSOR_ $1Z, BYTE];! buffer for cursor sequence 


STATUS = SCRSSGET_TYPE_R3 (SCRSC SET, eo we. TERN. TYPE); 
curren 

IF NOT .STATUS OR .TCB CSCRSB_TYPE] cof VTFOREIGN 

THEN RETURN (STATUS); 


LIBSSCREEN LIBSSCREEN = Screen Management 1B-se Sep-1 AX-11 Bliss-32 V4.0-74 
be 860 SCRSSET_CURSOR = Set cursor to Character Positi 1 eet yi 9§: 2:1 VMSLIB SREISCREEN- O3o44 
; 24 670 1 XSBITL "SCRSSET_CURSOR = Set Curs t h Positi , 
nee 67] 1 GLOBAL ROUTINE SCRSSET CURSOR Ay apply phat dean Minted i Ruch gestae 
Be BAY EB | SBR 

Be BB, cae. 

; 4 8 erg | FUNCTIONAL DESCRIPTION: 

> 2440 678 1! Thi 1 b 

; 4a) 679 i bt AL ne causes the cursor to be moved to the specified 

i: gas 681 1 | CALLING SEQUENCE: 

; ree ° 5 : ret_status.wlc.v = SCRSSET_CURSOR (LINE_NO.rw.v, COL_NO.rw.v) 
; 4a? 685 FORMAL PARAMETERS: 

; re? 687 ! LINE_NO.rw.v Line number. 

; tt red : COL_NO.rw.v Column number. 

: 438 691 IMPLICIT INPUTS: 

eee ei 

: 437 695 | IMPLICIT OUTPUTS: 

Bo ee OB a se 

; 461 99 1 | COMPLETION STATUS: 

; ree f : : SS$_NORMAL Normal successful completion 

: $465 203 SIDE EFFECTS: 

> 2467 705 1! NONE 

3; 2468 706 1 i- 

3 2469 707 +1 

3; 2470 708 BEGIN 

3: 2471 70 

3 ¢47? LITERAL 


AMF “OC OONO UNE WI —- O OONO 


SN 


ROMOROPORORORY 


Be Se Ge See Be Ge Se Ge FH Se Be Se Be He 


POPQPOPIPOMENPONNoNPoNononononopnonornyg 


POPOPINMINPOPONYIDS 2 SS Ss 


ts 


oo 
oon 


NOUEWN “OOD ONOUS WhO 


4 
EEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 
CURSOR = Set furtor to Character Positi 1 30071388 4: 4:4 I SREISCREEN. 3064 


R 
T 
+ 
Just store new cursor position if mapping active. 
TCB PEchstt Ne) = .LINE_NO; 
TCB CSCRSL-COLUMN] = .COC_NO; 
IF .TCB CSCRSL_CHARMAP] NEQ 0 
RETURN (SS$_NORMAL) ; ! ret if mapping active 
+ 
Put the appropriate set cursor sequence into the buffer 
BUFFER = 0 ; ! Preset 1st long word to zero, its used as a current 
Length in the call below. Fill in class and dtype 
' Later 

BUFFER CDSCSA_POINTER] = CURSOR_BUF (0); 

IF NOT (STATUS = SET_CURSOR (.TCB tie NO, .COL_NO, 

“BUFFER COSCSA_POINTERJ, 
BUFFER COSC$W_CENGTH)) ) 

THEN RETURN (.STATUS); 

1+ 

Output the sequence. 

BUFFER Ha ae: = 

BUFFER CDSCS$B_CLASS) = 
1 


IF NOT (STATUS = OUTPUT 
THEN RETURN (.STATUS); 


RETURN (SS$_NORMAL) ; 
END; 


C$K_DTYPE_T; 
CSK"CLASS~S; 


-TCB, BUFFER)) 


PRIPDPIPIPYPIPYPIPIPIPYIPIPPIPIPIPIPINPIPYPIPIPOPPSA MUPIMIPIPIPUPIPYPOPUPINIP we 
SN NSN NS SS P 
Ft et et et ee 
CoOno 


nN 
PEASANT VI 
UEW OC O@NOULSWN oO 


! End of routine SCRSSET_CURSOR 


001¢ 00000 -ENTRY SCRSSET_CURSOR, Save R2,R3,R4 
; ee a Tare 
% of 3 0008 BSB SCRSSGET_TYPE_R3 
4A 0 3 oF BLBC 3TATUS, 2$ 
04 Ox AS 94 0001 CHP jocrcss, #4 
34 Ad 4 at x 3 MOV2WL LINE NO, 24(TCB) 
8 Ad 8 AC 6 MOV2WL OL Ro °40¢; 08) 
1 A ¢ TSTL ; TCcB) 
32 4 BNEQ 4 
14 AE D 6 CLRL BUFFER 


— 


4 
LIBSSCREEN LIBSSCREEN = Screen Management tb-se =1984 02:28:1 AX=-11 Bliss-32 V4.0-74 Page 69 LIB 
yoe e000 SCRSSET_CURSOR = Set furter to Character Positi 1 = 8ep-19 4 96:98:18 VMSLIB.SRCJSCREEN.B32; ° (21) ve 
18 AE 6E 9E 9 MOVAB_ CURSOR_BUF, BUFFER+4 : 274 
146 AE OF PUSHAB BUFFER + 275 
IC AE 0D USHL BUFFER : 
7E 0 AC 3C MOVZWL COL_NO, =(SP) : 
7E 4 ac 3¢ MOVZWL LINE_NO, =(SP) : 
54 DD B PUSHL 1c : 
0000v CF 03 FB CALLS #5, SET_CURSOR : 
16 0 .€ 4 BLBC Atus ; 
16 AE 010E BF B0 004 MOVW #270, BUFFER+2 : 3758 
14 AE 9F 00048 PUSHAB BUFFER : 2761 
0000v CF 33 BR BORE CALS #o” OUTPUT : 
3 96 £8 $68 BLBC STATUS, YS : 
0 01 00 005 1$: MOVL #1, RO t 2764 
04 00058 2$: RET : 2765 


; Routine Size: 92 bytes, Routine Base: _LIBSCGDE + 083E 


: 2528 2766 1 !<BLF/PAGE> 


4 
LIBSSCREEN LIBSSCREEN = Screen Management 1bese -1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 70 
von s006 SCRSSET_SCROLL - Establish Scrolling Region 1 aa 1 96:98:18 VMSLIB SREISCRELN B3504 ’ (22) 
; 0 534 1 ZSBTTL "SCRSSET_ SCROLL = Establish Scrolling Region’ 
3 1 7 1 GLOBAL ROUTINE SCRSSET_SCROLL ( 
: $ 8 1 START_LINE : WORD, 
: ? 1 END_LINE : WORD 
3 4 fete d= 
3 5 ak 1 !4 
; 2 $ it? ! FUNCTIONAL DESCRIPTION: 
: 2538 775 13 This routine establishes a scrolling by setting the internal 
; 2539 ore 1! serotr ine regren parameters. Issues the escape sequence that 
3 en9 f } establishes the region and preserves the cursor position. 
; sce ie ii If this routine is called with no arguments, scrolling is turned 
3 ti re : } off by setting the scrolling region parameters to zeroes. 
: 345 78 i CALLING SEQUENCE: 
: 20 784 1! ret_status.wlc.v = SCRSSET_SCROLL (CSTART_LINE.rw.v, 
; 208 et, : END_LINE.rw.vJ) 
; $587 787 | FORMAL PARAMETERS: 
: 226 44 | CSTART_LINE.rw.vJ Optional - First Line of scrolling region. 
: 228 iad } CEND_LINE.rw.vJ Optional - Last Line of scrolling region. 
: 2556 793 1) IMPLICIT INPUTS: 
3; 2557 794 1! 
3 228 i? : } NONE 
> 2560 797 1) IMPLICIT OUTPUTS: 
3: 2561 798 1! 
; $20 444 : NONE 
: 3364 2801 ' COMPLETION STATUS: 
: 266 608 : SS$_NORMAL Normal successful completion 
> 2568 805 1 | SIDE EFFECTS: 
3; 2569 806 1! 
3; 2570 807 1! NONE 
: $85) 308 1 
; 378 a BEGIN 
> 2575 I LITERAL 
: 278 81 K_ALL_ARGS = 2 ! # args if all present 
> 257 14 K-SCROLL_BUFSI2 = 25; i size of buffer to hold 
: 278 15 ' set scroll sequence 
: 25 16 { #tt* more than large enough for 
; 2580 1 ! t** currently known sequences - 
3; 2581 18 { tt may need to be increased 
: ; § ys ! tet later | 
: 25 1 LOCAL 
; 2585 § SET_MARGINS : VECTOR C1, 8] INITIAL ¢ 
; 25 DSCSK_DTYPE_T “24 + DSCSK_CLASS_S “16 + 14, 
| 
| 
j 


s$-32 


sage 


crow 
o 
| ie J 


kK 4 
een Management 19-3e0712 4 00:98:18 AX-1 


4.0-74 P 71 
Establish Scrolling Region 14-Sep-1984 oe ets 


1 Bli ; V 
VMSLIB.SRCJSCREEN.B3 (22) 


UPLIT ¢ erie i + | ie go he LB, “SULs iu’, 
VT100_SM, ESC, "8* $)) ; 
! Dsc for VT100 seq to <save cursor> 
! <establish scrolling region> 
!  <restore cursor> 


STATUS, ! status ryturnes y a called routine 
wiecee : BLOCK (8, BYT for intermediate buffer 
CVT_ARGS olds FAO args to convert 

FAO LEN : Dd, ' Length output from FAO 

TERM_TYPE, ' guaay parameter - device type 

TCB; ! Terminal Control Block ptr 


FANVLSSSLESRANLSSSS 


PAAAOMMUIVY 


' is 0 and the first free byte is the start address of the buffer. 


fo fo Te Te Je te) 
oxr™~ 
owocw 


SFFF 


wn—o 


L R 
S$ T 

; E) !_ dsc 
: BUF : VECTOR fx SCROLL_BUFSIZ, BYTEJ,! buffer for set scroll seq 
; ; RGS : VECTOR (27, hh 
; 8 MAP 3 
: 3 TCB : REF BLOCK C,BYTE); : 
; 8 BUILTIN . 
: 2606 8 ACTUAL COUNT; : 
3; 2606 8 STATUS = SCRSSGET_TYPE_R3 (SCRSC_SET_SCROLL; TCB, TERM_TYPE); : 
; 2607 8 T pet current Terminal Control Block ; 
; 2608 84 IF NOT .STATUS OR .TCB CSCRSB_TYPE] EQL VTFOREIGN ’ 
; 2609 84 THEN RETURN (.STATUS); : 
; 2610 847 3 
3; 2611 848 '+ : 
: ol¢ 849 ! Determine if scrolling region should be established. . 
: 261 850 le ; 
3; 2614 851 : 
: 2615 £26 IF ACTUALCOUNT () GEQU K_ALL_ARGS : 
; 2616 85 HEN - : 
3 aii See TCB CSCRSV_SCROLL) = 1 ! set scrolling active if args passed : 
3 3619 S28 TCB CSCRS$V_SCROLL] = 0; ! scrolling inactive if no args passed : 
; 2621 B28 IF .TCB CSCRSL_CHARMAP) NEQ 0 OR H mapping active 3 
: 26 § 85 -TCB CSCRS$B_TYPE] NEQU VT100 OR ! allow only VT100 terminals ; 
; 26 860 -SCRSAL_DEVBDEPND2 CTT2$V_DECCRT) EQL 0 ‘ 
3: 2624 861 ! must a a dec_crt not just VT100 style : 
; 2625 B66 THEN 3 
: 26 § 86 RETURN 1; : 
: 26 864 ; 
: 2628 865 '¢ ; : 
3: 2629 ¥§, ! Point a descriptor to the buffer which will hold the set scroll 3 
3; 26 86 ! sequence. ; 
3 o08 le : 
; 26 : $90 BUFFER DSC$B_DTYPE} = DSCSK_DTYPE_T; ; 
; 26 71 BUFFER CDSC$B_CLASS) = DSCSK_CLASS'S; 3 
3 2635 re BUFFER CDSC$WILENGTH) = K_SCROLL _BOFSIZ; : 
; iS BUFFER CDSCSA_POINTER) = TEMP_BUF; : 
; o38 75 '¢ : 
: 2639 6 ! Call SFAO to convert START_LINE and END_LINE to ASCII. Notice : 
: 7 ! that the buffer we just allocated is empty, so the current length : 

| 

| 


4C 55 21 38 4C 


_—uN 


; 


Oooooc[eo 
>>> RSseS 
DnNOmMmMIoO>y> 


orn —D vow 


UNH we 


i 
a 
: 


001 8 
SE 3 C5 
30 AE 0E01000E F DO 00 


P.AAO: .BYTE 


-BYT 
-ASCII 
~EXTRN 
ENTRY 
S 


UBL2 
MOVL 


LISSSCREEN LIBSSCREEN = Screen Management 18 

VO4- SCRSSET_SCROLL = Establish Scrolling Region 14 

> 2644 1 if ACTUALCOUNT () GEQU K_ALL_ARGS 

; 2645 ¢ HEN 

; 264 BEGIN 

; 264 4 CVT_ARGS £93 = ,START_LINE; 

3 264 5 CVT-ARGS Ci] = .END_LINE; 

: oe8 § END 

3 e31 8 BEGIN ! default scrolling region if 
: 26 ¢ 9 CVT_ARGS £93 = 0: ! no args passed 

; oe gay CVT_LARGS L1Jj = 0; 

; 2 : 4 END; 

: $32 P 598 STATUS = SFAOL (CTRSTR = SET_MARGINS, OUTLEN = FAO_LEN 

; 2657 894 OUTBUF ="BUFFER, PRMLST = CVT_ARGS); 

; 2658 895 IF NOT .STATUS THEN RETURN (.STATUSS; 

: 2659 896 BUFFER CDSC$W_LENGTH] = .FAO_LEN; 

: 2660 89 

: 2661 898 '¢ 

3 606 899 ! Output the scrolling sequence. 

; 266 900 te 

3 2664 901 

3; 2665 O06 IF .TCB CSCRSL_RTNADDR) EQL 0 ! no user supplied routine 
; 2666 90 THEN 

; 2667 904 BEGIN : genet ctrl 0 

; 2668 P 2905 STATUS = $Q]0W (EFN = .TCB with EFNJ, 

3; 2669 P 2906 CHAN = .TCB CSCRS$Q_CHAN), 

; 2670 P 2907 FUNC = (10$_WRITEVBLK OR IOSM_CANCTRLO), 
; 2671 P 2908 Pl = ,BUFFER CDSCSA_POINTER), 

; 267 909 P2 = Q); ! buffer not really used 
: 267 910 IF NOT .STATUS THEN RETURN (.STATUS); 

3: 2674 911 END; 

; 2675 31g 

3 o78 a7 STATUS = OUTPUT (.TCB, BUFFER); ! output buffer 

; 2678 915 IF NOT .STATUS 

; 2679 916 THEN 

; 2680 917 RETURN (.STATUS) 

3 2681 918 ELS 

> 268 2919 RETURN (SS$_NORMAL) ; 

; 268 359 

3 2684 2921 1 END; ! End of routine 


SCRSSET_SCROLL 


SYSSFAOL, SYS$Q10W 
SCRSSET_SCROLL, Save R2,R3,R4 
Be it 

#234946574, SET_MARGINS 


2768 


> 2810 


——E 


mM 4 
LIBSSCREEN LIBSSCREEN = Screen Managemen -Sep-1984 AX-11 Bliss-32 V4.0-74 P 7 
Woe 2000 SCRSSET_SCROLL = Establisn's A scrotling Region 122868 - 38 96: gf: 8 VASLIB.SRCJSCREEN.B32; age 33 
34 AF E2 AF 9 0 MOVAB P,AAO, SET_MARGINS+4 : ’ 
5 9 p MOVL #9 + 2843 ; 
00 ov 1 BSBW SCRSSGET_TYPE_R3 : : 
3 0 £9 d0018 Bet STATUS, 68 : 2845 ; 
04 OA AG 3 1 CMPB OS s«s1O(TCBS, #4 : : 
01 Ne BNEQ 1$ : : 
02 C gi § 3 1$: CMPB ss (AP), #2 + 2852 ; 
6 1F 0 BLSSU 2 : ; 
40 Ad } 88 A 188 il. 64(TCB) + 2854 : 
40 AG 1 8A p 5 3s B1cB2 sow}, 64(TCB) + 2856 ’ 
18 AG D3 0 $ TSTL g4iTe TCR : 2858 ; 
7D 12 00037 BNEQ 4 : : 
03 OA A& 91 00039 CMPB s«10(TCB), #3 + 2859 ; 
77 12 00030 BNEQ 8$ ; : 
6F 000000006 00 05 £1 00 F BBC as CRSAL -DEVDEPND2+3, 8$ : 2860 ; 
8 AE 010E0019  8F BO 0047 MOVL #17694 BUFFER + 287 ; 
te OC AE F O04F MOVAB TEMP "BUF *BUFFER?4 + 287 re 
02 6C 9 0094 CMPB ss (AP) > o#2° + 2881 ie | 
OC 1F 00057 BLSSU 4$ : ; 2 
04 AE 04 AC 3¢ 00059 MOVZWL START_LINE, CVT_ARGS + 2884 ; 
08 AE 08 aC 3¢ 00055 MOVZWL END. LINE, CvT_ARGS+4 + 2885 ; ; 
03 11 0006 RB $ > 2881 ; 3 
04 AE 7C 00065 4$ CLRQ  —- CVT_ARGS : 2889 73 
04 AE $* 00068 5$ PUSHAB CVT~ARGS + 2894 ; ¥ 
2C «AE OF 00068 PUSHAB BUF ER : P| 
08 AE 9F O06 PUSHAB FAO_LEN : ; 3 
C AE 9F 00071 PUSHAB SET “WARGINS q : $2 
000000006 00 04 FB 00074 CALLS #4, ~SYSSFAOL : a 
B 50 €9 00078 6$: BLBC STATUS: $ > 2895 7) 
28 AE 6— B80 0007 MOVW FAO LEN, BUFFER + 2896 ;o 
38 «=6A4 «(DS 000 TSTL 36(TCB) : 2902 3; 3 
2 12 000 BNEQ 4 : ; 3 
—E 7C 00087 CLRQ = = (SP) + 2909 
7E 7C 00089 CLRQ ss = (SP) ; 
7E 04 00088 CLRL = = (SP) ; 
40 AE bb 008D PUSHL BUFFER+4 : 58 
7E 7C 00090 CLRQ. = SP) : 
7E pA 0092 CLR -(SP) ; 
7E 70 8F 9A 00094 MOV #il2, -(SP) ; 
7E 08 Ad 3C 00098 MOVZWL gc CB) =(SP) : 
48 Ad DD C PUSHL ¢¢7cB) : 
000000006 00 o¢ FB F CALLS #12, SYS$Q10W : 
10 - A BLBC STATUS, 9$ ; 3919 
28 AE 9F 0009 7$ PUSHAB BUFFER > 291 
54 DD OOOAC PUSHL 1cB ; 
0000v CF : FB A CALLS # OUTPUT ; 
3 E9 0008 BLBC status, 98 > 2915 
0 1 B? 3 gs: MOVL #1, R : 2919 
4 00089 9$: ET > 2921 


; Routine Size: 186 bytes, Routine Base: _LIBSCODE + OB8AA 


3; 2685 2922 1 '<BLF/PAGE> 
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N 4 
REEN = Screen Management 1 ~genn 1386 99:98:18 AX=1 
CROLL = Up Scroll, Move Cursor Down One 14-Sep-1984 15:54:4 


XSBTTL SC RSUP -SEROLL = Up Scroll, Move Cursor Down One Line’ 
GLOBAL ROUTINE SCRSUP_SCROLL = 


i FUNCTIONAL DESCRIPTION: 

i This routine causes the cursor to be moved down 1 Line to the 
same column of the fol eying line. If the cursor was on the 
bottom Line to begin with, it stays where it was, but all the 
information on the screen appears to move up one Line. The 
information that was on the top Line is lost and a blank Line 
appears at the bottom. ‘ 

If a scrolling region is active ( on a VT100 or in mapping) 

then the logic above applies to the top and bottom Lines of 

the scrolling region rather than the top and bottom Line of 

the screen. If an UP_SCROLL is performed on the bottom Line of 
the screen, or a DOWN SCROLL is performed on the top line of the 
screen, while a scroll ng region is active then no screen 
movement takes place unless the top or bottom line of the screen 
corresponds to the top or bottom Line of the scrolling region. 

CALLING SEQUENCE: 
ret_status.wlc.v = SCRSUP_SCROLL () 

FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 

SIDE EFFECTS: 


NONE 


BEGIN 


MACRO 
VTQ5_UPSCROLL = XSTRING 
vT 3 UPSCROLL = ZSTRING 
VTI00_UPSCROLL = XSTRIN 
LOCAL 
STATUS, ' used for calls 


' terminal control block 
uP_BUFF : BLOCK (8,BYTE), i buffer dsc for OUTPUT 


{; i yT100 


1 Bliss-32 V4.0-74 
VNSLIB SRE SSCREEN 83021 


BCHAACINALD, SCHORCRELL?. ZCHAR(NULL))2, ! VTOS (w/fiILL) 


IF .TCB CSCRSL_CHARMAP] NEQ 0 AND 


5 
LIBSSCREEN LIBSSCREEN = Screen Management 18-se -1984 02:28:1 AX=-11 Bliss-32 V4.0-74 Pa 5 
Voe2000 SCRSUP_SCROLL = Up Scroll, Move Cursor Down One 14-Sep-19 4 9¢ 4:4 VMSLIB.SRC SCREEN 03274 9 053 
744 980 TERM_TYPE; ! i 
1s 381 we i terminal type 
rae 388 TCB : REF BLOCK C,BYTE); 
749 985 STATUS = SCRSSGET_TYPE_R3 (SCRSC_UP_SCROLL; TCB, TERM_TYPE); 
750 388 ! pet current control block, 
re 9 IF NOT .STATUS OR .TCB CSCRSB_TYPE] EQL VTFOREIGN 
7 ¢ Ht THEN RETURN (.STATUS); 
i ae 
736 44 Update cursor position with down movement. Limit cursor to page. 
757 99 ; 
758 994 TCB CSCRSL_LINE] = MIN (.TCB PSCRSL LINE) + 4 
759 995 .TCB ESCRSWIDEVPAGSIZ4); 
Mo io. | 
16 4 {Do nothing if mapping active and buffering enabled. } 
7 


So 
Oo 


§ arcs SCRSL_BUFFERJ NEQ 0 

§ RETURN (SS$_NORMAL) ; 

2 + 

Output scrolling sequence according to terminal type. 
UP_BUFF CDSC$B_DTYPE] = DSCS$K_DTYPE_T; 

5 UP_BUFF CDSC$B_CLASS] = DSCS$K_CLASS_S; 

5 CASE .TERM_TYPE FROM UNKNOWN TO VT100 OF 


SAN NNN 
SANS 


eh chee ny thy Ae yy tt ty A eth etre he i de hh thy ht 
~~ InN 
SSSssSEaes3 BSzS 
wr “ —_ 
AWAAA AM AAAI AA AAA AA AA AAA AAI AAA AIA nnn 


SOOONOUS 
tert tt to ot td = = =I I QOHOOOOOO 


DOO NAME WN 0 OD NOU EWN" OOONOUS WI 


UP _BUFF heb ne yedbt = ZCHARCOUNT (VT52 eee) 
DSCSA_POINTER] = UPLIT ( BYTE(VTS2_UPSCROLL)); 


CvT100) : , | 
BEGIN 


Be Be Oe Se Oe Ge Oe Be Be Se Se Se Se Fe Se Be Se Se Se Ge Se Se Ge Fe Ge Ge Fe Be oe BH Se Ge Se Se Oe BH Oe es BESS Oe Bees Se Sete Sete ee ee Sete te teesas 


«ee os oe 4 48 L4e 28 28s 28 288 28s Lod oe 28 28d oe 2d od od od od od od od 20d 8 oh 20d od 28d 28s 20d 28k 28d Wks 8s 28s W 0s 
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; Routine Size: 118 bytes, Routine Base: _LIBSCODE + 096D 


§ 
LIBSSCREEN LIBSSCREEN = Screen Management 1b-5e -1984 28:1 AX-11 Bliss-32 V4.0-74 
vitae SCRSUP_SCROLL = Up Scroll, Move Cursor Down One 1 mae 1 96:68: ] VMSLIB.SRCISCREEN. B32: Page i$ 
> 2801 037 END; 
: 280 O38 
: 280 039 TES 
: 2804 040 
: 805 4 RETURN (STATUS = OUTPUT (.TCB, UP_BUFF)); 
; 2807 008 1 END; ! End of routine SCRSUP_SCROLL 
00 00 00 OA 00964 P.AAP: .ASCII <10><0><0><0> ; 
OA 0096 P.AAQ: .ASCII <10> : 
096 ‘BLKB 3 
OA 0096C P.AAR: ASCII <10> ; 
000c 00000 .ENTRY SCRSUP_SCROLL, Save R2,R3 : 2924 
SE 08 C2 9000¢ SUBL2 SP : 
50 0A DO 0000 MOVL #16, RO + 2985 
0000v 30 00008 BSBW  SCRSSGET_TYPE_R3 : 
67 50 E9 00008 BLBC TATU : 2987 
04 OA Al 91 90005 CMPB =s- «LOC TCBS, #4 : 
61 13 0001 BEQL 9$ : 
53 24 «A 01 C1 00014 ADDL3 #1, 36(TCB), R3 + 2994 
53 OE Al 10 00 ED 00019 CMPZ2V #0, #16, 14(TCB), R3 : 2995 
04 18 0001 BGEQ 1$ ; 
53 OE Al 3C 00021 MOVZWL 14(TCB), R3 : 
24 «A 53 DO 00025 1$: MOVL  R3, 36(fCB) > 2994 
18 Al DS 00029 TSTL  24¢TCB) : 3001 
09 13 0002C¢ BEQL 2$ F 
04 Al b3 0002E TSTL  4(TCB) : 3002 
04 13 00031 BEQL 2$ ; 
50 01 10 00033 MOVL #1, RO : 3004 
04 000 6 RET : 
02 AE 010E 8F BO 00037 2s: MOVY #270, UP_BUFF+2 : 3019 
03 0 52 CF 0003D CASEL TERM TYPE, #0, #3 : 3013 
0023 0019 O00F 0008 00041 3$: WOR 43- $.- : 
ait | 
6E B4 90049 4$: CLRW  _—«UP_BUFF : 3017 
04 AE D4 00048 CLRL UP “BUFF +4 : 301 
1€ 11 0004 BRB $ : 301 
6E 04 80 5$: MOVW #4, UP_BUFF : O¢ 
04 AE Al AF 9E MOVAB P.AAP,~UP_BUFF +4 : 3024 
12 11 00 BRB : 3013 
6E 01 B0 0 A 6$: MOVW #1, UP_BUFF ; 029 
04 AE 9B Mi Hi e MOVAB P.AAQ, ~UP_BUFF +4 ; a3 
bE 1 80 6 7$ MOVW #1, UP_BUFF ; 03 
04 AE 95 AF 9E 00067 MOVAB P.AAR,~UP_BUFF+4 : 3036 
4002 BF BB $ 8$: PUSHR #°M<R1,SPS : 3041 
0000v CF 2 FB 9 CALLS #2, OUfPUT : 
04 00075 9$: RET : 3043 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-5e -1984 02:28:1 AX-11 Bliss-32 V4.0-74 
Ve 000 TRIMMED_LENGTH = Calc. tr mred Length of string 1 73007138 96:98:18 VMSLIB SREISCREEN. B30; 
; 2810 Rt? 1 SSBITL "TRIMMED_LENGTH = Calc. trimmed Length of string’ 
; 2811 23 1 ROUTINE TRIMMED_LENGTH ( 
; oig Se 1 LENGTH : REF VECTOR C, WORDJ, 
; 281 ‘3 1 ADDR 
; 2814 049 1 d= 
3; 2815 050 1 !++ 
: 518 0 : FUNCTIONAL DESCRIPTION: 
: 2818 > 4 Calculates length of specified string ignoring trailin 
: 5819 084 1 | blanks. : F ee , 
; 2820 055 1! 
; 4 1 828 ! : CALLING SEQUENCE: 
; § B28 : NEW_LENGTH.wic.v = TRIMMED_LENGTH ( LENGTH.rw.r, ADDR.ra.r ) 
>; 2825 060 1 ! FORMAL PARAMETERS: 
; 2826 061 1! 
; ; 4 bO¢ : } LENGTH. rw.r Address of original length of string. 
3 sE8o 064 1! ADDR.ra.r Address of start of string. 
; 2850 065 1! 
; 2831 066 1 ! IMPLICIT INPUTS: 
; 28 ; 067 1! 
; 28 068 1! NONE 
; 2834 069 1! 
3; 2835 070 1 ! IMPLICIT OUTPUTS: 
; ti 071 1! 
; 2837 Ore 1! NONE 
; 2838 073 1! 
3; 2839 074 1 ! ROUTINE VALUE: 
; 2840 075 1! 
; 2841 076 1! NEW_LENGTH.wl.v Length of string ignoring trailing blanks. 
: sacg 077 1! 
3 284 078 1! SIDE EFFECTS: 
3 2844 079 1! 
3 2845 080 1! NONE 
3: 2846 081 1 !-- 
: 2847 nt 1 
>; 2848 08 BEGIN 
; 2849 084 
; 0 085 LOCAL 
: 1 086 LEN_TO_ SEARCH, ! Current Length to search 
; 4 087 ADDR_TO_SEARCH ; ! Current starting position to search 
3 2854 

: 5 090 ! Initialize local length-to-search variable and quit immediately 

s $ 4 if we're looking at a zero-length string. 

; 28 O38 IF (LEN_TO_SEARCH = .LENGTHCO)) LEQU 0 THEN RETURN O ; 

3 80 844 ADDR_TO_SEARCH = .ADDR ; 

; § 9 WHILE 1 DO 

; is BEGIN Pa 

; 5 100 FIRST BLANK POS, ! Addr. of ist blank 

; 2866 101 NON_BCANK_POS, ! Addr. of Ist non-blank 
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LENGTH = Calc. trimmed Length of string 14-Sep-1984 15:54:4 VMSLIB 


vesaagee™ 


£6? NEW_LEN; ! New Length to search 

56? + 

870 ' Find the 1st blank in the remainder of the string. If we can't 
871 ' string has non-blanks in all character positions between here and 
4G ' last character posicion, hence its trimmed Length is its original 
Hh } Length. 

875 if ( FIRST_BLANK_POS = CHSFIND_CH ( .LEN_TO_SEARCH, ! Length 

He .ADDR_TO_SEARCH, ! start addr. 
87 Sal ! saught 


) EQL O THEN RETURN (.LENGTH(O) ); 


14 
' Calc. number of characters remaining in string including the 
blank we just found. 

W 


NEW_LEN = .LEN_TO_SEARCH = (.FIRST_BLANK_POS = .ADDR_TO_SEARCH ) ; 


+ 

! Try to find a non-blank between where we are and the end of the 
: string. If we can't, trimmed Length is original length minus 

' trailing blanks. If we can, calculate a new length remaining 

' and a new starting position and repeat. 


if ( NON_BLANK_POS = CHSFIND_NOT_CH ( .NEW_LEN, ' Length 
-FIRST_BLANK_POS, | addr 
ie ) ! saught 
) Eat 0 
RETURN ( .LENGTHCO] - .NEW_LEN ) ! blanks to end 
BEGIN 
LEN_TO_SEARCH = Length 


! New lengt 
-NEW_LEN = ( .NON_BLANK_POS = .FIRST_BLANK_POS); 
ety een = .NON_BLANK_POS ; ! New start 
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END ; 
RETURN ( 0 ) ; ! Never gets here -- just keeps compiler happy. 
END; ! End of routine TRIMMED_LENGTH 
003C 00000 TRIMMED_LENGTH: 
«WORD Save R2,R3,R4,R5 
55 04 BC 3¢ 99 2 MOVZWL @LENGTH. LEN_fO_SEARCH 
4 0 BEQL 6 
2¢ 08 AC 00 0000 MOVL ADDR. ADDR_TO_SEARCH 
62 3 A QOO0C 1$: LOCC #32, LEN_TO_SEARCH, (ADDR_TO_SEARCH) 
2 4 NEQ 2$ 
1 D4 8 1 CLRL R1 
54 1 DO 00014 2$: MOVL R1, FIRST_BLANK_POS 
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ep 1984 bis 0:13 imsL ies sneSscheen:030;1 


3$ 
@LENGTH, RO 
ten O25 arr RCH RON NEO 10. poner RO 


#32, peat CEN FIRST. ete POS) 


Rt 
ae NON_BLANK_POS 
@LENGTH, R1 

W » RI 


NON_BLANK_POS, FIRST_BLANK_POS, R1 
“LEN, R1, LEN TO_SEARCH 
NON“BLANK POS, ABDR-TO_SEARCH 


RO 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 81 
vitae SCRESGET. TYPE = Get dev % type 1 ~300 138% 99:98:18 VMSLIB. atisthetn osor4 . (28) 
; 291 108 1 ZSBTTL ‘SCRSSGET_TYPE = Get doy'ge type’ 
; 291 14 1 GLOBAL ROUTINE SCRSS$GET_TYPE_RS ( 
3 2914 133 1 REQUEST_TYPE; ' Request type 
; 2915 149 1 TCB_ADDR : REF VECTOR f-LONG), ! Addr of terminal control block 
: 218 150 1 DEV_TYPE : REF VECTOR C,LONG ' Device type 
: 291 151 1 ) : GET_TYPE_LINK = 
: 2918 1 § 1 44 
: ah 4 : z : FUNCTIONAL DESCRIPTION: 
: 2921 165 1: This routine is called by other screen package routines to 
: 29 ¢ 1 § 1! find the terminal type using the GETDVI system service. This 
; 29 1 1! is done only once per terminal for the Life a the process -- 
; 3 ¢ 138 ! all later calls simply return the saved terminal type. 
: 906 160 ! CALLING SEQUENCE: 
; . 8 196 ! ! ret_status.wic.v = SCRSSGET_TYPE_R3 ( REW_TYPE.rl.v; TCB.wa.r, DEV_TYPE.wl.r ) 
: 930 164 | FORMAL PARAMETERS: 
: $32 196 : REQ_TYPE.rl.v Request type. 
3 Rte 198 : TCB.wa.r Address of terminal control tlock 
: 338 109 ! ; DEV_TYPE.wl.r Device type. 
: 938 12 { IMPLICIT INPUTS: 
me aie 
; 34 1% ! IMPLICIT OUTPUTS: 
ere tn oes 
; 946 180 ' COMPLETION STATUS: 
: 2948 182 i L1B$_NO_STRACT 
; Beh i ' statuses from SCRS$SET_OUTPUT or SCRSSFOREIGN 
; 951 188 i SIDE EFFECTS: 
; 938 189 1 NONE 
Be HB LS 
: 2956 150 BEGIN 
3 2957 191 LOCAL 
3; 2958 136 STATUS, 
ee he 
: 2961 195 BUILTIN 
; 306 138 AP; 
Sow 
+ 2965 199 TCB: REF BLOCK C,BYTE); 
F 96 201 IF .SCRSL_CUROUTPUT EQL 0 
3 2968 02 THEN 


vase 
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Screen Management 15-50 Sep-1 AX-11 Bliss-32 V4.0-74 
= Get devite type 300-1 3h 9¢: gf: 3 VMSLIB.SR RCISCREEN: B32; 
BEGIN !' no output device acti 
1F |< SCRSL_FLINKHEAD NEQ 0 hye ge xy 
neo nSSET NO_STRACT); ! error if not Ist call to scrpkg 
“yy Not = Rt. eT “OUTPUT (0); ! set up stream 0 for output 
TH | 
NRETURN (. STATUS); 
ND; 
TCB = .SCRSL_CUROUTPUT; ' should now be a current ctrl block 
TCB_ADDR = .TCB; ! ret addr of TCB to user 
tore = .TCB CSCRSB_TYPE]) EQL VTFOREIGN 
BEGIN ! Foreign Pree pete 
DEV_TYPE = .TCB CSCRSB_DEVTYP); 
IF REQUEST. TYPE GEQ 07! special processing if foreign device 
BEGIN 
IF NOT (STATUS = SCRSSFOREIGN (. ree. «REQUEST we 
TCB CSCRS$B_DEVTYP + »AP)) 
' note that AP still points to the argument 
THEN ! List from the calling SCR$ routine 
RETURN (.STATUS); 
END; * Foreign processing 
RETURN (SS$_NORMAL); 
END; ! end of SCRSSGET_TYPE 


50 DD 00000 SCRSS$GET iin Beds: 
00000000" EF Dp 90002 TSTL | SCRSL_CUROUTPUT 
1D 12 0000 BNEG 
00000000' f p OA STL SCRSL_FLINKHEAD 
50 000000006 &F ve ; MOVL #L 1BS_NO_STRACT, RO 
D 1 BRB 
E D4 0001B 1$: CLRL = = (SP) 
000000006 00 gi FB 1D CALLS #1, SCRSSET_OUTPUT 
1 0 € 4 BLBC STATUS, 4 
1 00000000' fF 09 7 2% MOVL SCRSL €uROUTPUT, TCB 
3 1 p F MOVL 1CB CB_ADD 
OA Al 9A MOV2BL 10(fCB), ~DEV_TYPE 
: 5 Girk Heh Te. 
52 08 NI 9A A MOVZBL 11(TCB), DEV_TYPE 
6 d3 TSTL a UEST’ TYPE™ 
1 4 BLSS 
5C DD 0004 PUSHL 
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Routine Base: 


-LIBSCODE + 0A31 


95 bytes, 


; Routine Size: 
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LIBSSCREEN IBSSCREEN = Screen Management 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page / 
vireets att REIGN = Call foreign terminal handler 12=808-13Re 96:98:18 VMSLIB SREISCRELN O30¢4 . (283 
ZSBTTL "SCRSSFOREIGN = Call foreign terminal handler’ 
GLOBAL ROUTINE SCRSSFOREIGN ( 
TCB : REF BLOCK C, BYTE], ! Addr of terminal control block 
REQ_TYPE, ; peayest type 
Bee DEV_TYPE, ' Device type 
00 SCR_ARGS ! Addr of SCR$ arguments 
= 


ae 
FUNCTIONAL DESCRIPTION: 


This routine attempts to map the foreign terminal handler into 
PO region and cail it. 


CALLING SEQUENCE: 


DEV_TYPE.rl.v, SCR_ARGS.ra.v ) 
FORMAL PARAMETERS: 


DDD PPPs Be BB BB PAI 


WN SO OONAUVUE WN OOONOA VUE WIN OOONOuM 


Se te Ge Se Geese Ge Be Ge Se eee 
WAAAHI WI WAAIAAMAAAI WWIII Y— AWWW 
CL LPLDLD ORION OR ORD ee ss 
WAI AAAAI PS POPONUNPINUNIPUNYDY 2 Ss = SS | OO Oo 
MEFWN OC OODNOUS WN “OO ON FUSWN OOM uw 
AAW NANA AAAI ANNAN OO 


R 
0 
1 | 
1 $ 
1 $ 
1 : 
. 
1 ; 3 
1! 3 
1! ij 
7} : 4 
1} iy 
1 ! : 
1 i 3 
; F i 
3 . 3 : 
3 i ret_status.wic.v = SCRSSFOREIGN ( TCB.ra.v, REQ_TYPE.rl.v, ‘4 
: 1 3} 
3 1! 3 
; : TCB.ra.v Address of terminal control block : 
; ! REQ_TYPE.rl.v Request type. 3 ; 
; 1 DEV_TYPE.rl.v Device type. 3 
: : SCR_ARGS.ra.v Address of arguments from SCR$ routine 3 ‘ 
: 26 1! IMPLICIT INPUTS: : i 
3 64 1! : 
: Se? 1! NONE 3 
; 3266 1! 3 
: e4 1 ! IMPLICIT OUTPUTS: : 
; 30 68 1! 3 
; 3036 269 1! NONE i 3 
: 3037 $19 1! 2 3 
; O38 sf i COMPLETION STATUS: : j 
: at 73 ! Statuses returned by LIBSCALL_IMAGE and OUTFUT. 2 ’ 
: O48 75 1 1 SIDE EFFECTS: 3 | 
+ 304 7% «1! 2 y 
; 3044 77 11 NONE 3 
: 3045 78 1 !-- 2 
3; 3046 79 «1 2 
; 3047 0 BEGIN 2 
: 3049 ; BUILTIN 2 
; 3050 CALLG ; 23 
3; 3051 4 2; 
2 026 5 LOCAL 2 y 
3084 $ DEFSTR : VECTOR (1, 8) INITIAL ( ! Default name i} 
; 3055 DSCSK_DTYPE_T “24 + DSCSK_CLASS_S “16 + 16, ! string iy 
: B28 ; UPLIT™(*SYSSLIBRARY: .EXE'Y), 2 
; 3058 91 SCRFT : VECTOR (1, 8) INITIAL ( ! File name | 3! 
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LIBSSCREEN LIBSSCREEN = Screen Management 18-52 “1984 02:28:1 AX-11 Bliss-32 V4.0-74 P 85 
Ve 000 $c $F REIGN = Call foreign terminal handler 1 ~Sep-19 4 96:98 ) VMSLIB. RCISCREEN.B32; 29° (26) 


FEFTESEES 


! of local buffer 


OUT_LENGTH, ! Length of output 
' returned in 
LOCAL_BUFFER 


PARM_LIST : VECTOR (15, LONG], ! Paramater List for 
! call to LIBSCALL_IMAGE 


CPPS STOPS 


a a ad od od ot od ot od SOO OOOO oooooooocoooo 
SESS PORES SESESESN SSE RSE ESI SIS = 
AAAIAINIA NAINA AAW IAAI AAAI AI AINA AAAI AI WIA WINN WIAA AIA AAI AAAI 


Fun —O0eon~ 


STATUS; 
MAP SCRFT : BLOCK [8, BYTE] ; ! To allow accessing as a descriptor 
MAP DEFSTR : BLOCK (8, BYTE] ; ! To allow accessing as a descriptor 


SANNNNG 


ssssssssss 
COnoOu 


1¢ 

Initialize LOC_BUF_DESCR 
LOC_ BUF _DESCR 
LOC_BUF _DESCR 


STATUS = LIBSGE 
IF NOT .STATUS TA 


LOC_BUF_DESCR CDSC$W_L 
Dsc$B_C 
DSC$B_D 

T_VM (T 

EN RE 

+ 

Set up elements of PARM_LIST in preparation for call to LIBSCALL_IMAGE 

PARM_LIST CO] = 14; ! Number of arguments 


PARM_LIST C1] = PARM_LIST (4] ; ! Address of SCRFT descr in 
! calt List 


PARM_LIST (2) 


PARM_LIST [6] ; ! Address of DEFSTR descr in 
! callist 


PARM_LIST (3) = PARM_LIST (8) ; ! Address of sub-callist 

PARM_LIST [4] = .SCRFT CDSC$W_LENGTH] ; ! Length field of SCRFT 
PARM_LIST C5] = .SCRFT COSCSA_POINTER) ; ! Address field of SCRFT 
PARM_LIST (6) = .DEFSTR COSC$W_LENGTH] ; ! Length field of DEFSTR 
PARM_LIST C7] = .DEFSTR COSCSA_POINTER] ;! Address field of DEFSTR 
PARM_LIST (8) = 5; ! Number of arguments 

PARM_LIST (9) = .SCR_ARGS ; ! Address of args from SCR$ routine 


NOE WN OVO DNOAOUE WN (OOD NAU EWN 0 OD NOUS WN SO ODNAUES WN“ OVONOUFSWN we 


R 
0 
DSCSK_DTYPE T *24 + DSCSK_CLASS_S “16 + 5, ! string 
UPLIT™('SCRFT')) , 
RET_STATUS, ! Status of subroutine 
! calls. 
LOC_BUF_DESCR : BLOCK (8, BYTE], ! Fixed string descr. 


1 
‘ 
: 
} 
; 
M 
7 
4 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
: 
: 
q 
i 
i 
i 
i 
i 
i 
i 
i 


BEEBE EE & FAM MWIWIWIWIRI PINION 2 2 S HQOOTODTOCOOCOOCOOCOWOOOOOOO 2D 


— a a 


WEBER EEE SE EWM nponononononononung 2 SS 


SOON OMNE WN 0 OBNOU EWN "OO OONOU SW OOO 


58 45 2—€ 3A 59 52 


AX-11 B 
VMSLIB. 


5 
Sc creen Management 1984 + 98: 8:1 
ep-1984 15:54:4 
sREQ_TYPE ; ! Request type 


-DEV_TYPE = (DTS_FT1 = 1) ; ! Foreign terminal 
i number 


nn 
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M 
16-Sep 
GN - Call foreign terminal handler 122860 
' 


PARM_LIST [10]. = 
PARM_LIST (11) = 


PARM_LIST (12) = LOC_BUF_DESCR ; 
PARM_LIST (13) = OUT_LENGTH ; 
PARM_LIST (14) 


! Address of LOC_BUF_DESC 
! Address of OUT_LENGTH 
-TCB CSCRSL_FTDATA); 


'¢ 
i Call IBSCALL_IMAGE. 
{ immediately. 


IF NOT ( RET_STATUS = CALLG ( PARM_LIST, LIBSCALL_IMAGE)) 
RETURN ( .RET_STATUS ) ; 


If we get don't get a success return, quit 


'¢ 


Call OUTPUT with the buffer returned. 
LOC_BUF_DESCR CDSC$W_LENGTH] = .OUT_LENGTH ; 
RET_STATUS = OUTPUT ( .TCB, LOC_BUF_DESCR ) ; 


! Adjust length 


14 
Free buffer space before exiting 

STATUS = LIBSFREE_VM (TCB CSCRSL BUFSIZ], LOC_BUF _DESCR CDSCSA_POINTER]): 
IF NOT .STATUS THEN RETURN (.STATUS); 


RETURN (.RET_STATUS); 
END; ! End of routine SCRSSFOREIGN 


41 52 42 49 4C 24 53 59 53 00490 P.AAS: .ASCII \SYSSLIBRARY:.EXE\ 
00 00 00 54 46 52 43 $3 OOAAO P.AAT: ASCII \SCRFT\<0><0><0> 
009¢ 00 .ENTRY SCRSSFOREIGN, Save R2,R3 
SE ABS AE : 00 MOVAB = (SP) 
50 AE 0€01001 8F p 0 MOVL #234946576, DEFSTR 
54 SOA p AF ; OOF MOV rests DEE TRG 
48 AE 0E010005 8F p 1 MOVL #34 46565, SCRFT 
4c OA A AF 18 MOVAB scr CRET+4 
5 4 aC D MOVL 
40 AE 4C A2 B 4 MOVW in LOC_BUF_DESC 
42. AE 0108 8F 9 MOVW OC BOF DESCR+ 
44 AE OOF F PUSHAB uF OOESCRTS 
4C Ad OF é PUSHAB 
000000006 99 9 FB CALLS One BSGET _vM 
D ¢ MOVL * STATUS ~ 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep-1984 :28:1 AX-11 Bliss-32 V4.0-74 Page 87 LIE 
ioee800 SCRSSFOREIGN = Call foreign terminal handler 12-888: 7 9g: 98:18 VMSLIB SREISCRELN O3504 . (285 ve 
03 3F BLBS TATUS, 1$ : 3322 
a 9 ee er a 
| 8 AE 14 AE be 4 MOVAB PARM_LIST? 4° PARM_LIST+4 : 3329 
¢ AE 1C AE 9E 0004 OVAB PARM"LIST+24, PARMLIST+8 : 
1 AE ee AE 9E OVAB PARM-LIST+#52, PARM-LIST+12 : 
14 AE 8 AE MOVZWL SCRFT, PARM LIST+16 : 
18 AE 4¢ AE p MOVL  SCRFT+4, PARM_LIST+20 ; 339 
1¢ AE ; AE 6 MOVZWL DEFSTR, PARM CIST+24 + 3341 
4 OME * 08 BO 09 Pvt BS PARALISTOSEES ee : 333 
8 AE 19 AC D 19 MOVL § SCR_ARGS; PARM_LIST+3 : 3347 
C AE 08 AC D 7 MOVL REQLTYPE, ARM~LIST+ : 3349 
30 AE c f- OF g 7A SUBL3 #157 DEV. TYPE, PARM_LIST+44 + 3351 
SB Be REYAE bar tO Sam C8 as 
roe 50 OA Bb $0 9 MOVL BO CRDS PARM_LIS ae : 328 
000000006 Q 04 AE FA 0008 CALLG PARM_LIST, LIBSCALL_IMAGE : 3364 
3 25 ES 00099 Bove AQ. RET Status 
40 AE bE 80 009 MOVW  OUT_LENGTH, LOC_BUF_DESCR > 3371 
40 AE 9F OOOA PUSHAB LOC "BUF _DESCR : 3373 
04 AC DD OOOA PUSHL TCB : 
0000v cf 08 FB O0A6 CALLS #2, OUTPUT F 
2 DO OO00AB OVL RO, RET_STA : 
44 AE 9F OOOAE PUSHAB Lot BUF DESCR+4 : 3379 
7E 04 ac 0000004C 8F C1 0081 ADDL3 #767 TCB, -(SP) ; 
000000006 09 02 FB OOOBA CALLS #2, LIBSFREE_VM F 
5 5 D0 0001 MOVL RO, STAT : 
04 53 £8 000C4 BLBS STATUS, 3$ : 3380 
0 5 BO 90¢7 2$: MOVL STATUS, RO F 
50 52 D0 Sboce 3$: MOVL §-RET_STATUS, RO : 3382 
04 OOOCE RET : 338 


; Routine Size: 207 bytes, Routine Base: _LIBSCODE + OAA8 


; 3151 3384 1 !<BLF/PAGE> 
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VOe 000 OUTPUT = Write string Soe toratael without carri =300 7138 ¢: 4:4 VMSLIB-SREISCREEN. B31 . (298 
; 3153 5 1 XSBTTL ‘OUTPUT = Write string to terminal without carriage control’ 
: 3154 8 1 ROUTINE OUTPUT ( TCB : REF BLOCK fe ° 
; : 5 f : ee STRING : REF BLOCK [,BYTE] ) = 
: ? 89 i FUNCTIONAL DESCRIPTION: 
: 3159 91 1! This routine writes the specified string to the terminal 
; 199 3 : without carriage control. 
: 168 94 1 1 CALLING SEQUENCE: 
; 316 mT 
; 138 39 : ret_status.wlc.v = OUTPUT ( TCB.rab.r, string.rt.ds ) 
: 3166 98 1 | FORMAL PARAMETERS: 
3; 3167 99 1! 
; be: 239 : TCB.rab.r Address of current terminal control block. 
: 3170 402 1! STRING. rt.ds Address of fixed string descriptor of output 
; 3171 405 1! string. 
3 \We 404 1! 
s 317 405 1 ! IMPLICIT INPUTS: 
: 3174 406 1! 
; 3175 407 1! NONE 
; 3176 408 1! 
; 3177 409 1 ! IMPLICIT OUTPUTS: 
; 3178 410 1! 
3; 3179 411 1! NONE 
:; 3180 ri 1! 
; 3181 41 1 ! ROUTINE STATUS: 
3 3186 414 1! 
; 318 gel? 1! 
3; 3184 416 1 ! SIDE EFFECTS: 
: 3185 eeif 1! 
; 3186 418 1! String will be output. 
+) ee 
: $150 421 BEGIN 
> 3191 3198 LOCAL 
3 $135 424 STATUS : INITIAL (SS$_NORMAL) ; ! Status to return to caller 
: 198 4 3 1+ 
3 132 : 7 If input string length is 0, return an immediate success. 
: 138 4 g IF .STRING CDSC$W_LENGTH] EQL 0 THEN RETURN .STATUS ; 
: 199 439 ‘+ 
; soy $36 : Major decision is whether output is being buffered or not. | 
: $08 a3 13° CSCRSL_BUFFER] EQL 0 ! If output being buffered 
: 204 436 BEGIN! Not buffered / | 
> 3205 43 IF .1CB CSCRSL_RTNADDR] EQL O ! If user has supplied call-back 
: 5 rh} THEN ' routine 
: 320 4 4 BEGIN ! No call-back routine 
$ 08 440 4 LOCAL 
3; 3209 441 4 CHANNEL ; ! Channel as a longword 


v0 
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LJBSSEREEN LIBSSCREEN = Screen Management 16-Sep-19 4 Oe: 8:1 AX-11 Oi fegeze a et od 
v04-000 OUTPUT = Write string to terminal without carri 14-Sep-1984 15:54:4 VMSLIB.SRCJSCREEN.B32; 
; 3210 ate 4 
; 1} ret ? CHANNEL = .7CB CSCRSW_CHAN] ; 
3 i 445 4 IF .TCB CSCRSB_TYPE] EQL 0 ! If unknown type 
; 14 173 4 THEN 
; 15 44 BEGIN ' Use RMS_ OUTPUT 
: $ 448 STATUS = RMS_OUTPOT ( .TCB, .STRING ) ; 
> 321 449 D ! Usé RMS_OUTPUT 
: 3218 450 4 
3 $12 451 5 BEGIN ! Use QI10 
: 20 P 3452 3 STATUS = $Q10W ( CHAN = .CHANNEL 
° 4 = ao 

321 P 3455 2 EFN C8 CSCRSL_EFNI 
; é P 745% FUNC = (IO$_WRITEVBLK OR I0$M_NOFORMAT), 
; 355 P 3455 é Pi = .STRING PDSCSA_POINTERI 
> 3224 456 P2 = .STRING CDSCSWULENGTH] 5 ; 
; 3229 457 4 END; ! Use QI0 
; 6 S58 4 END ! No call-back routine 
3; 3227 45y 4 
:; 3228 460 3 ELSE 
3 3562 461 3 
; 32350 ret 4 BEGIN ' Call-back routine provide 
3 353! 465 4 STATUS = RMS_OUTPUT ( .TCB, .STRING ) ; 
: 3 464 ; ; T Call-back routine provided 
3: 323 465 END ' Not buffered 
3; 3234 466 3 
: 3936 28h ; “zit 
3; 3237 469 BEGIN ! Buffered output 
: 3238 470 ; + 
3; 3239 3471 ' Description of what the buffer header (BH) Looks Like: 
: 3240 a076 3 f= 
3 3241 34735 3 MACRO 
3 $508 3474 3 BHSW_CURR_LENGTH = 0, 0, 16, 0%, ! Current no. of bytes 
: 324 3475 BHSA_POINTER eS, 3, wee 8 Be ' Addr of ist byte 
Z ste $058 BHSW_MAX_LENGTH = 8, 0, 16,0%; ! Max. no. of bytes 
3; 3246 478 BIND BH = .TCB CSCREL_BUFFER) ; 
: 3247 479 MAP BH : BLOCK C,BYTET ; 
ee 
: 3250 ret BYTES_REMAINING, 
; $2) ry SAVED_BUFFER_ADDR; 
: 2 485 SAVED_BUFFER_ADDR = .TCB ESCRSL BUFFER : 
> 3254 486 BYTES-REMAINING = .BH CBH$W_MAX-LENGTH] - 
3 $2? tt .BH BH$W_CURR_LENGTH] ; 
: 33 489 IF .STRING CDOSCS$W_LENGTH] GTRU .BYTES_REMAINING 
3 28 490 THEN 
3 5 491 4 BEGIN ! Won't fit in current buffer 
3; 3260 492 4 '¢ 
:; 3261 493 4 ' Check to see if length of current string is larger than 
3 $66 +30 ? the entire size of the buffer. 
: $63 496 4 IF .STRING CDSC$W_LENGTH] GTRU .BH CBHSW_MAX_LENGTH] 
: 3266 498 5 BEGIN ! Will never fit 
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16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 
Write string to corninel without carri 12286871382 96:98:15 VMSLIB. SRC SCREEN 8301 
STATUS = LIBS_SCRBUFOVF ; 


ese’ ! Will never fit 
BEGIN ' Flush 5 onde then add to buffer 
SCRSPUT_BUFFER (0) ; 
TcB CSCRSL_BUFFER) = ,SAVED_BUFFER_ADDR; 
! this yas re-inited by SCRSPUT_BUFFER 
CH$SMOVE ( .STRING COSCSW_LENGTH 


+ STRING DSC$A POINTERS 
“BH CBHSA_POINTER] + .BH CBHSW_CURR_LENGTH]) ; 


BH CBH$W_CURR_LEWGTH) = .BH CBHSW CURR_LENGTH] + 
STRING CBOSCS$W-LENGTHI ; 

END ; ' Flush buffer, then add to buffer 

END ! Won't fit in current buffer 

BEGIN ' Will fi 
CHSMOVE ( .STRING pee 
-STRING LDS 
.BH CBHSA_P 
BH CBHSW_CURR_LENGTH] = . 


END ; ' will fit in 
END ; ! Buffered output 


RETURN (.STATUS ) ; 


t i 
C$W_ H 
CSA INTER} 

OIN + .BH CBH$W_CURR_LENGTH) ) ; 
CBH$W_CURR_LENGTH] + 

RING CBSCSWILENGTH) ; 

uffer 


END; ! End of routine OUTPUT 
O1FC 00000 OUTPUT: .WORD Save R2,R3,R4,R5,R6,R7,R8 
58 01 dO 00002 MOVL #1, STATUS 
57 08 AC D0 00005 MOVL STRING, R7 
67 BS 00009 TSTW = (R77) 
68 13 00008 BEQL © 4$ 
52 06 AC 00 0000D MOVL _TCB, R2 
Ya 04 A2 00 00011 MOVL  4(R2), R6 
3D 1 0013 BNEQ 3$ 
38 A2 05 0001 TSTL  56¢R2) 
2A 6 1A BNEQ  1$ 
53 8 Ag C 0001C MOVZWL 8(R2), CHANNEL 
A A 3 6 TSTB §—- 10 (R25 
gi 1 0 BEQL =s1$ 
— 7C 0 CLRO = = (SP) 
75 7C¢ CLRO (SP) 
7E 67 3¢ 9 MOVZWL (R7), -(SP) 
04 A? bp 002C PUSHL  4(R75 
7E 7C O000F CLRQ.  =(SP) 
7E p4 1 CLRL 8 
7E 0130 i C 3 MOVZWL #304, -(SP) 
3 DD PUSHL 
48 A2 DD A PUSHL (Re) 
000000006 00 OC FB 00030 CALLS #12, SYS$Q10W 
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LIBSSCREEN LIBSSCREEN = Screen Managemen 1b-5¢ -1984 28:1 AX-11 Bliss-32 V4.0-74 Page 91 
VOe~000 OUTPUT = Write string to terninel without carri ~3007 1382 99:92:18 VMSLIB SRE ISCREEN 83044 se (29) 
9 11 44 BRB : 
0084 F BB 00046 1$ PUSHR #*M<R2,R7> t 3463 
0000¥ cf ‘ F 4A CALLS #2, RMS OUTPUT : 
e D 4F 28: MOVL RO, STATUS : 
D 1 : BRB 7 + 3434 
3 6 00 3$: MOVL 6, SAVED_BUFFER_ADDR + 3485 
0 08 Ab C 7 MOVZWL 8(R6), BYTES_REMAINING + 3487 
1 s B MOVZWL (R6), R1 : 
0 \ SUBL2. R1, BYTES REMAINING : 
50 67 10 0 ED 6 CMPZV #0, #16, TR7), BYTES_REMAINING : 3489 
1A 1B 66 BLEQU 6$ : 
08 Ab 7 81 6 CMPW (R7), 8(R6) + 3496 
9 8 C BLEQU 5$ : 
58 000000006 BF »D 006 OVL #L 1B$_SCRBUFOVF , STATUS : 3499 
1A 11 00075 4$: BRB 7 : 3496 
7E 04 00077 5$: CLRL = = (SP) : 3503 
F873 —sCF o4 FB 0079 CALLS #1, SCRSPUT_BUFFER : 
04 A2 3 p 0007 MOVL SAVED_BUFFER_ADDR, 4(R2) : 3504 
50 66 3C 00082 6$ MOVZWL (R6),~RO : 3518 
50 04 A6 CO 0008 ADDL ¢ 4(R65, RO : 
60 04 867 67 28 00089 MOVC (R7), @4(R7), (RO) : 
64 67 AO O008E ADDW2 (R7). (R6) : 35 1 
50 58 00 00091 7$ MOVL STATUS, RO : 3525 
04 00094 RET : 3527 


; Routine Size: 149 bytes, Routine Base: _LIBSCODE + 0877 


; 3296 3528 1 !<BLF/PAGE> 
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LIBSSCREEN IBSSCREEN = Screen Managemen 16-Sep-1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 
Ve 000 ILL_MAP = Fill map with speci fied character 1 30071382 96:98:18 VMSLIB’ SREISCREEN. 832+ 1 ° (28 
ZSBITL "FILL_MAP = Fill map with specified character’ 
ROUTINE FILL“MAP ( 
TCB_: REF BLOCK C,BYTE], 
START_LINE, 
START_COL, 
END_LINE, 
END COL 
FILC_CHAR 


) sz 
++ 
FUNCTIONAL DESCRIPTION: 


This routine fills the character map with a specified character, 
zeroes the attribute map, and sets the modified map to ON. 


AAAAAWAAAAAWAANAAAAAANA NANA AAAAAANI 


R 
A 
3 6 1 $ 
3 1 3 
: $30¢ 
; : : 1 ; 
5 Be Py 
; 4 5 7 : 
i 3308 339 | ; 
: 3309 335 11 
3 8 5 oa 3 
; 9 279 7 § 3 
> 3310 41 1 : 
ay ed ! 
; 3 5 244 CALLING SEQUENCE: ; 
: 3315 546 1 | ret_status.wic.v = FILL_MAP (TCB.rz.r, START LINE.ml.v, START _COL.ml.v, ; 
: ; 8 ne : END_LINE.ml.v, END_COL.ml.v, FILC_CHAR.rt.r) : 
: 3 7 249 FORMAL PARAMETERS: ; 
: 0 551 1! TCB.r2.r Terminal Control Block : 
; 3321 226 1} START_LINE.ml.v starting Line number 3 
; 35 § >) oo START_COL.ml.v oe pth column number 3 
; 33 554 1! END_LINE.ml.v ending line number 3 
; 3324 + ae END COL.ml.v ending column number A 
; 33 ? 328 : FILC_CHAR.rt.r fill character : 
: 3 i 338 { IMPLICIT INPUTS: 
es iti 3 
; 33 1 368 IMPLICIT OUTPUTS: ; 
: 3 : 264 ; NONE 3 
> 3335 366 1 i COMPLETION STATUS: : 
: 3339 oeR Oy i : 
: 33 Q 369 SIDE EFFECTS: 3 
: 3340 571 1: NONE : 
t 33c, s8 | 
: 328 57% BEGIN : 
: He ie ee : 
; 6 378 START_INDEX, : 
3: 334 278 END_IRDEX, 3 
3 8 57 LENGTH; 3 
wm ote. : 
; 33 Be ! Convert Line and column numbers to zero based. ; 
i 3358 $84 é : 
: 3354 585 START_LINE = .START_LINE - 1; ; 


ow 
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LIBSSCREEN = Screen Managemen 18-se -1984 02:28:1 AX-11 Bliss-32 V4.0-74 P 93 

FILL_MAP = Fill map with specified character 1 =300 71383 96: 4:4 VMSLIB.SRC SCREEN: B3004 298 (08) 
§ START_COL = .START_COL = 1; $ 
: END_LINE = .END_LINE = 1; : 
\+ : 
Compute the start index. : 
9 3 
38 START_INDEX = (.TCB CSCRSW_DEVWIDTH] * .START_LINE) + .START_COL; . 
age 4 a START INDEX GEQU .TCB CSCRSL_AREA] ; 
239 RETURN 0; ! error if index outside area ; 
334 ‘+ ; 
59 ! Compute the ending index + 1. ; 
$4 % 
60 END_INDEX = (.TCB CSCRSW_DEVWIDTH] * .END_LINE) + .END_COL; ; 
ret If END _INDEX GTRU .TCB [CSCRSL_AREA] : 
ret RETURN 0; ! error if index outside area ; 
3609 1+ : 
3008 Fill the character and attribute maps. : 
610 : 
611 LENGTH = .END_INDEX = .START_INDEX; ; 
o1¢ IF .LENGTH LEGU 0 : 
361 THEN $ 
el3 RETURN 0; ! do nothing if zero or negative length : 
616 CHSFILL (.FILL_CHAR, .LENGTH, (.TCB CSCRSL_CHARMAP] + .START_INDEX)); : 
eV” CHSFILL (%C° "> .LENGTH, (.TCB CSCRSL_ATTRAAP] + .START_INDER)); : 
619 é RETURN 1; : 
620 ; 
621 1 END; ! End of routine FILL_MAP ; 
O1FC 00000 FILL_MAP: ; 
.WOR Save R2,R3,R4,R5,R6,R7,R8 : 3530 : 
08 AC 07 002 DECL § START_LINE F 3 5 ; 
C AC D7 DECL START COL 3 6 3 
10 AC Dd? 00008 DECL § END .LINE ; 3587 3 
5 6 Ac b0 9 MOVL 1¢8 "RO ; 3593 ; 
C Ab 3C OCOOF MOVZWL 12(R6), RO ; ; 
8 ac C4 O13 ULL2 START Linc, RO ; ; 
57 50 0c ac C1 1 ADDL START_COL, RO, START_INDEX 3 3 
14 Ab 3 bi 9001 START INDEX, S0(R6) : 3594 ; 
D iE BGEQU $ 3 : 
of A6 3C 00 MOVZWL 12(R6), RO : 3602 ; 
1 AC C4 MULL END_LINE, RO 3 : 
14 af CO A ADDL END_COL, END_INDEX 3 : 
14 Ab ; bt 5 CMPL FND INDE , 20(R6) : 3603 ; 
B 1A BGTRU $ : : 

| 
J 
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LIBSSCREEN LIBSSCREEN ratte een Manageme 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 94 
vite FILL_MAP = Fill map w thospeci fied character 19-8 Sep aes 9¢: ge: 18 VMSLIB.SRCJSCREEN.B32; ° (28) 
58 50 57 G3 i SUBL3 START_INDEX, END_INDEX, LENGTH ; AE 
58 18 ac 6E -" rm: 2c 3A MOVCS #0, ASP). obit CHAR, LENGTH, @24(R6)- : 616 
58 20 bf a « 2c ‘3 MOVCS wh ph woey LENGTH, @28(R6)CSTART_INDEX ; 3617 
59 4B MOVL 1, RO + 3619 

4 4E RET : 
50 bi GF 1$: CLRL RO 3 3621 

4 00051 RET : 


; Routine Size: 82 bytes, Routine Base: _LIBSCODE + OCOC 


; 3391 3622 1 !<BLF/PAGE> 
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Voee000 BUT RAP = Output current nae 1 ta 1 96:68) VMSLIB. SRCISCREEN.B32; ° (29) 
; 3393 623 1 XSBITL ‘PUT_MAP = Output current map' 
3 3394 624 1 ROUTINE PUTMAP ( 
: 95 625 1 , TCB : REF BLOCK C,BYTE) 
i 339 $59 | 4s : 
3 a8 ° 8 ! FUNCTIONAL DESCRIPTION: 
: 3400 630 1 This routine processes the internal screen, attribute and 
: 3401 ‘ee modified maps and calls other screen package routines to 
; rt § : } output the result. 
; 404 634 i CALLING SEQUENCE: 
; res > 8 : ret_status.wlc.w = PUT_MAP (TCB.rab.r) 
: 408 6 8 | | FORMAL PARAMETERS: 
: 219 ret ' TCB.rab.r Current terminal control block 
; ag 3642 { IMPLICIT INPUTS: 
ee Ma) = 
: 3416 646 | IMPLICIT OUTPUTS: 
PRB ee 
: ie 690 1 ' COMPLETION STATUS: 
: 3 g 3652 1! SS$_NORMAL Normal successful completion 
; $057 eee7 : Errors returned by: RMS_OUTPUT 
; i 3655 | SIDE EFFECTS: 
: 3427 a NONE 
: 3428 658 1 !-- 
: 3429 659 1 
; : : 269 a BEGIN 
: ) i $OUTPUT_NEXT_LINE 
: 134 $0 ! se UIRiS macro causes the next Line of text from the data buffer to 
$ rte 664 !' be output. If no attribute information pertains to this line, it is 
; 3435 665 ' output directly. If attribute information does pertain to this Line, 
3; 34 66 ! DO_LATTR is called to output the Line with the appropriate attributes. 
: 3 $68 5 WACR 
> 34 » SOUTPUT_NEXT_LINE 
; ta M $96 SKPC (ZREF (NOLL), Dw2, -CURR_PTR + .TCB CSCRSL_AREA]; REM_ATTR, FND); | 
; 441 " 44 .REM_ATTR EQL 0 | 
: 344 i $78 BEGIN ! No attributes set for this Line's worth of text 
: 3444 M 367% + | 
; o2% : af? : Simply output Line's worth of text as it sits in data buffer | 
: 344 '° 
. ae LOE DESC FDSCBY LENGTH = OW i | 
: e. : | 
> 3449 4 $59 STATUS = RMS_OUTPUT ( .TCB, LOC_DESC 3 ; | 
| 


LIBSSCREEN LIBSSCREEN = Screen Management 1b-se Sep-1984 AX=-11 Bliss-32 V4.0-74 Page 9% 
rivet PUT_MAP = Output current ase gep-198 2 98: ¢f: 8 VMSLIB SREISCREEN O32 4 . (29) 
: 3450 M $ 9 END ! No attributes set for this Line's worth of text 
: 3451 M ELSE 

: r § : ? ¢ BEGIN ! Attributes are present 

; 3454 M 3684 call DO_ATTR to output a Line's worth of text with the 
: 3455 M 3685 : i boeing) attributes simulated (e.g., underlining and 
Be nies 

3 134 M 36 8 60 ATTR ( ( REM. artr. os -TCB, DW, .CURR_PTR ) ; 

3 3459 M 36 NB; Attributes are present 

: 3460 690 2%; ! End of neate $OUTPUT. SNEXT LINE 

; 3461 691 

3 re 036 + 

: 346 69 | SOUTPUT_N_BLANK_LINES 

> 3464 694 TRIS macro out use LIN ES. TO_SKIP blanks Lines, advancing the 
: 3465 695 current pointer (CURR_POIN ATER) as Tt goes along. 

: 3466 696 in 

3: 3467 697 MACRO 

: 3468 M 3698 foyreyt N_BLANK_LINES = 

3 3469 M 3699 I FROM 1 16 sLINES_ TO_SKIP 

; 3470 ™ 3700 bon 

3; 3471 M 3701 BEGIN 

3; 347 4 370 STATUS = RMS_OUTPUT ( .TCB, LOC_DESC ) ; 

; 47s fs 203 CURR. PTR = .CURR_PTR + .DW ; ~! Advance to next Line 

3; 3475 705 2; ! End of macro SOUTPUT_N_BLANK_LINES 

: 3476 706 

3; 3477 707 

>; 3478 708 | * soutpur FF 

: 3479 709 This macro output a <FF> to clear an entire page. 

: 3480 710 & 

: 3481 3711 

3; 348 4 Har SOUTPUT_FF = 

3: 348 M 371 LOC_DEST Hing: LENGTH) = 

> 3484 M 3714 LOC DESC DSCS$A_POINTER) = ‘burt (BYTE ( FF )); 

; 3485 Mm 3715 STATUS. = RMS_OUTPUT ( .TCB, LOC_DESC ) ; 

3 rt'¥] £18 g 3 | End of macro SOUTPUT FF 

; 3488 718 ' R1 = R3 = FND = Ist non-space character 
3; 3489 719 ! R2 = LINES_TO SKIP 

: 3490 720 i RG = BYTES-REMAINING 

; 3491 721 ! R7 = DW 

> 349 7 é i RB = CURR_PTR 

; 349 7 ' Ro = 

3: 3494 724 ' R10= END_DATA_ADDR = start of attributes 
3 roe y 5 ' R11 = DwW2 

: 499 7 ; BUILTIN 

; 3498 7 3 SKPC; 

3: 3499 7 

3 230 730 LOCAL 

:; 3501 731 STATUS, ! Status to return to caller 

3 208 7 § Dw ' Device widt 

3: 35 7 Dwe ! Co oth of device width 

; ape 4 : CURR_PTR, ; Po nter to start of remaining characters in 
: ' ma 

3; 35 736 END_DATA_ADDR, ! End of character data buffer, start of 
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NOONE BE PWG BE UIE UII BB BWW nnonononononononononononorornororononn 
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REEN = Screen Management b-sep-1984 9¢: g2:) AX-1 


1 Oi lager A et Oo 
VMSLIB.SRCIJSCREEN.B32; 
' attribute buffer 
NING,! No. of bytes fynetning be to, be output 
IP, Bee of blank Lines to 
No. of , Nae nd yf — ng 
: BLOCK (8, BYTE qt string descriptor 


oF BAL. 


SCRSL -WORKMASK = 0 ; ! Init ewiath attibute mask 
Dw = [TCB CSCRSW _DEVWIDTH) ; 3! Device 

Dw Ww; opy 0 f device width 

CURR “PTR =". 1CB CSCRSL_ CHARNAP Address of start fo character 


buffer 
END_DATA_ADDR = .TCBCSCRSL ‘caanah + TB CSCRSL_AREA) ; 


LOC_DESC (CDSCSB_CLASS] = DSCSK_CLASS_ Si 
LOC“DESC CDSC$B-“DTYPE) = DSCSK_DTYPE_T 


ete (BYTES_REMAINING = ‘ne bath jae = .CURR_PTR) GEQ 0 


orsin ' Overall loop 
TEMP, ' throwaway value 
FND ; i Next byte index found by a CHSFIND_NOT_CH 


‘ Find next displayable character 
SKPC aw scree BYTES wpren RINE. CURR PTR; TEMP, FND); 
i NES_TO_SKIP (.FND - TCURR_ PTR) / .DW2; 
dF tines. 10. SKIP EQL 0 
BEGIN !' No Lines to ski 
DW = TRIMMED_LENGTH (DW sgune PTR); 
IF CB CS CSCRSL_ATTRMASKS EQL 0 


BEGIN ! No scan for ee ‘putes 


LOC_DESC CDSC$W_LENGTH 

LOCDESC CDSCS$A~POINTER) = “cult PTR 
STATUS = RMS_OUTPUT ( .TCB, LOC_BESC is 
END ! No"scan for ar eeiactal 


} a hs attributes 


BEGIN 

SOUTPUT NEXT 

END; ! Scan Teo" * ettrieutes 
END ! No Lines to skip 


ELSE 

BEGIN Some Lines to skip 

IF .FND GEQ * ene DATA. goon AND ' If epne tates page not 
“LINES _ TO_ "SKIP NEQ ' blank and if more than 

HEN ' one blank Line 
BEGIN 
IF .1CB ESCRSL_ATTRMASK) NEQ 0 
THEN 

BEGIN 


DW = 0; 
IF (FND' = CHSFIND_NOT_CH ( 


——— 
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LIBSScneeN REEN = Screen Management 16-Sep-1 


LIBSSC 4 02:28:1 AX-11 Bliss-32 V4.0-74 p 9 
PUT_MAP = Output current map 1 30071382 96:92:18 VMSLIB SRE SSCREEN: B30¢1 age 53) 

: 36 1 SKPC (ZREF(NULL), DW2, .CURR_PTR + .TCB CSCRSL_AREAJ; :j 
; 36 ; REM_ATTR, FND); fe 
: 36 IF .REM_ATTR NEQ 0 i 
: 36 22 8 THEN 2 j 

: 36 5 BEGIN ; 
: 36 36 7 14 ; : 
: ? 38 , ; Output with attributes + 3 
: 36 39 7 DO_ATTR (REM_ATTR, END, .TCB, DW, ‘| 
; 36 60 7 7 .CURR_PTR) ; 3; 3 
; 36 861 7 END : 4 
; 36 g6¢ § ELSE 3 4 
; 36 6 BEGIN 3 4 
; 36 HG) 7 '¢ g 4 
; 6 39 4 : Output without attributes + 
: 36 Be 7 SOUTPUT_N_BLANK_LINES ; 3 4 
: 3638 508 8 END; z 4 
; 3639 69 END; 3 4 
: 3640 870 5 DW = TRIMMED _LENGTH ( DW, .CURR_PTR); 3 4 
; 3641 871 5 IF .TCB CSCRSL_ATTRMASK) EQL 0 : 4 
; 649 b7¢ 5 THEN 3 4 
; 364 873 6 BEGIN ' No scan for attributes 3 4 
> 3644 874 6 LOC_DESC FDS. $W_LENGTH = .0W; 3 4 
3 3645 875 6 LOC“DESC COSCSA~POINTER] = .CURR_PTR ; 3 4 
> 3646 876 3 STATUS = RMS OUTPUT ( .TCB, LOC_BESC S ; 3 4 
; ree 144 g END T No scan for attributes + 
: 3649 879 6 BEGIN ! Scan for attributes 3 4 
; 3650 880 6 SOUTPUT_NEXT_LINE ; 3 4 
; $3] 3 1 ; me ND; T Scan for attributes : i 
; 638 ass END; ! Some Lines to skip : , 
: 3655 885 CURR_PTR = .CURR_PTR + .DW2; ! Advance to next Line 3 4 
: 636 886 DW = .DW2 ; ' Reset width to width of page 3 4 
: 3697 887 END; | Overall Loop a 
> 3659 889 TCB CSCRSL_ATTRMASK] = .SCRSL_WORKMASK ; —! Reset attibute mask 3 4 
3 3660 890 RETURN ( .STATUS ) ; 3; 4 
; 3661 891 END; ! End of routine PUT_MAP : d 
: 4 
0C5 BLKB 2 
0c agcep P.AAU: .BYTE 12 : 3 4 
9¢61 -BLKB ; 3 4 
OC 00C64 P.AAV: <BYTE 12 : : ‘ 
ft 
OFF PUT_MAP: WORD Saye R2,.R3,R4,R5,R6,R7,RB,RI,R10,R11 ; 3624 3 4 
5E 10 cs SUBL P : 3 
00000000' EF DP CLRL = SCR$L_WORKMASK > 3744 3 4 
7 ¢ AS BC O000r ROVEML 19¢K3). DW Poh 7 
6 6E 06 13 MOVL DW, Dw 3746 3 4 


N 6 
aaSep-198e 18:8e:08 — LYMSLIBsSRESSCREEN: 03071 Page (39) 


3} CURR_PTR ; 3747 
§ 
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1 
} 749 
1 24(R3), END_DATA_ADDR 

LOC_DESc+ 


=“ ig 


3763 
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3765 
3785 


18: SUL S 
BGEQ 


Oo 
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3. BYTES_REMAINING, (CURR_PTR) 


N 
RR_PTR, FND, RO 
2,7RO, LINES_TO_SKIP 


2$: SKPC 
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wt Ww 
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Dd 

£ 

NES_TG_SKIP, #1 3786 
7 
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00 B442 59 


04 AE 6$: MOVL 


—o 
om 


8 
7$: PUSHAB 
CALLS 2, RMS_OUTPUT 
RO. STATUS 
8B L2 DWe, CURR PTR 
5 8$: AOBLEG NES_TO_SKIP, I, 7% 
9$: SKPC DW2, @0(R4)CCURR_PTRI 
REM ATTR 
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So 
oS 


OOS MMO S19 OF VMMNON VMOU N11 FH BS BW MUNVIMNOOS NA MNO F&F OOPS OUlFr OO} 
FPP OMIT OM ™M WT OOM OP OMWM OWS NIM MN VOM WIDOW WM PIWA PR OM IW Fw 


A 10$: CLRL 


11$: PUSHAB 


9 
9 
A 
A 
A BRW 
A 
A 
oc A 
B 


0000V CF 


« RMS_OUTPUT 


U 
AD DWe, CURR PTR 

AOBLEQ LINES_TO_SKIP, I, 118 
BRW $ 


C_DESC 
COC_DESC+4 


: 
2 


@ 
rr 
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EC 


Vr oDatr Dw zTsa—T 
~e we 
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10 AE FFE MOVAB P.AAU, 
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LIBSSCREEN LIBSSCREEN = Sc M t .- - 
VARSGGEEE™ —URSRGREENGGaSetteDetaneoeng® ieSeg 
eb CF 
of AE : gf 0 D1 15$: 
mee 1 ee Se ot ee tne 
song : ; 
008 E 
of AE B64 OEB 17$: 
1 ag D4 OE 
6 BS O00F 
35 9% 0dr 
0c ag oF ot 18$: 
5 DD OOOFC 
0000V cf 50 4 | 00105 
5 6 0 001 6 
eC 5 $8 £5 00108 198: 
00 B442 56 00 Hi Bei se 20$: 
08 AE 50 D Bi3 
04 AE 51 DO 0011 
08 AE b 00110 
14 13 00120 
52 DD 00122 
04 Af SF 00124 
5 DD b8t 7 
19 AE SF Go159 
0000vV CF 08 + Bat : 
25 04 OOI36 28: 
0c ag OF 9 A 22$: 
sake $3 po ors 
38 30 o Beit 
EC ¢ 28 F O14A $73: 
52 pd 014 4$: 
04 «OA F 15 
ee oe a] 
ia 15D 
00 B442 56 06 3 15F 
08 AE 50 D 165 
04 AE 08 2 D 17 
0 AE 1? i i 25$ 
6 AE gf p iy : 
0c a Ff 17A 
3 0D 17D 
0000vV CF 2 FB OO17F 


4 28:1 AX-11 Bliss-32 V4.0-74 
3B ¢: 4:4 VMSLIB SREISCRELN 3504 
BRB les 
MOVW #1, LOC_DESC 
MOVAB. P.AAV, COC_DESC+4 
PUSHAB LOC_DESC 
PUSHL R 
CALLS #2, RMS_OUTPUT 
MOVL RO, STATUS 
BRW 28$ 
CLRW  LOC_DESC 
CLRL LOC DESC +4 
TSTL  (R7T 
BNEG  20$ 
CLRL 
BRB 9$ 
PUSHAB LOC _DESC 
PUSHL R 
CALLS 2, RMS_OUTPUT 
MOVL. RO, STATUS 
ADDL2 Dw, CURR_PTR 
AOBLEG INES_TO_SKIP, I, 18$ 
SKPC = #0,,_ DW2, @0(R4)CCURR_PTRI 
MOVL RO, REM_ATTR 
MOVL * END 
TSTL -REM_ATTR 
BEQL 
PUSHL CURR_PTR 
PUSHAB DW 
PUSHL R3 
PUSHAB FND 
PUSHAB REM_ATTR 
CALLS #5, DO_ATTR 
BRB 24$ 
CLRL 
BRB 3$ 
PUSHAB LOC_DESC 
PUSHL 
CALLS 2, RMS_OUTPUT 
OVL. RO, STATUS 
DDL2 Dw, CURR PTR 
AOBLEQ LINES TO_SKIP, I, 22$ 
USHL  CURR_PTR 
PUSHAB DW 
CALLS 2, TRIMMED_LENGTH 
MOVL RO. DW 
TSTL (R? 
BEQL 25$ 
SKPC =» #0, DW2, @0(R4)CCURR_PTRI 
MOVL RO, REM_ATTR 
MOVL 1. END 
TSTL REM_ATTR 
BNEQ 
MOVW DW, LOC_DESC 
MOVL — CURR_PTR, LOC_DESC+4 
PUSHAB LOC_BESC 
PUSHL R 
CALLS #2, RMS_OUTPUT 
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LIBSSCREEN LIBSSCREEN - Screen Management 16-5 Sep AX-11 Bliss-32 V4.0-74 Page 102 
VOes000 PUT_MAP = Output current Rep 14-Sep 1382 96: 8: 3 VMSLIB SRE ISCREEN. B32 04 . (395 
58 5 30 184 MOVL STATUS : 
} 1 187 BRB 3 
pp 189 26$ PUSHL CURR_PTR : 
04 a F 188 PUSHAB DW $ 
5 bP 1 PUSHL R ; 
19 AE 9F 19 PUSHAB FND : 
1 AE 9F 0019 USHAB REM_ATT : 
0000v CF FB 00196 ALL #5, DO_ATTR : 
52 6 CO 0019B 27$ ADDL Due, CORR_PTR > 3885 
6E 6 BY 19E OVL » DW : 3886 
FE89 31 QOO1A1 BRW : 3754 
67 00000000' gf DO QO1A4 288: MOVL SCRSL_WORKMASK, (R7) 3 $059 
0 B DO O01AB MOVL STATUS, RO : 35890 
04 1AE RET 3; 3891 
; Routine Size: 431 bytes, Routine Base: _LIBSCODE + 0C65 


; 3662 3892 1 !<BLF/PAGE> 
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EEN = Screen Management 16-Sep-1984 :28:1 AX-11 
= Handle bold and underlining 12286871382 9: 4:4 VMSLIB 


ZSBITL "DO_LATTR = Handle bold and underlining’ 
ROUTINE DO_LATTR ( 
YTES_REMAINING, 


: REF BLOCK C, BYTE], 
wth, 


144 


i FUNCTIONAL DESCRIPTION: 


This routine handles Lines containing underlining or bolding. 
A larger Line is built containing concatenated copies of the 
original Line with embedded <CR>'s. 

1 ttlgethine net “wi chagpeey characters are converted to 

nted. 


Bold characters are 


and 
then overpr 


CALLING SEQUENCE: 
ret_status.wic.v = DO_ATTR (BYTES_REMAINING.rl.r, 


ef of» 
rab.r 
E_LENGTH.rl.r 
INE_ADDR.ra.r) 
FORMAL PARAMETERS: 
BYTES_REMAINING.rl.r Count of number of bytes remaining in 

current Line. It is assumed to be less 
than or equal to DEV_WIDTH. 


FNZ.rl.r Address of first non_zero attribute byte 
in a table of attribute bytes. 


TCB.rab.r The current terminal control block. 
Used to calculate the size of the 
mapped data area and hence the start of 
the attribute area. 

LINE_LENGTH.rl.r Length of current Line 


LINE_ADDR.ra.r Address of currert Line 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
E: rors returned by: RMS_OUTPUT 


STRSOUPL_CHAR 


'¢ 
! Construct descriptor for and pi locete space for the bolding buffer. 
! Initialize buffer to all blanks, Initialize fixed bel eing buffer 
descriptor except for length which we compute as we procede. 


BOLD_DESC CDSC$B_CLASS] = DSCSK_CLASS_D ; ! Dynamic 
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LIBSSCREEN LIBSSCREEN = Screen Management 16-5¢ -1984 02:28:1 AX-11 Bliss-32 V4.0-74 Page 104 ai 
voe~000 DO_ATIR = Handle bold and underlining 1 7300-138 96:98:18 VMSLIB SREISCREEN. 83044 ‘i (383 
; y 1 950 } , 
: 34 § 2 1; SIDE EFFECTS: 
: 3724 9 7 NONE 
: 3725 954 1 !-- 
; 37 8 wae 4 
3 BT 9 § BEGIN 
; 3728 95 BUILTIN 
: 3729 228 SKPC; 
; 37350 95 LOCAL 
3 37>) 960 ! Local copy of BYTES_REMAINING 
i $258 961 LOC _FNZ : REF BLOCK C, BYTE], ! Local copy of FNZ 
3 37 306 TAT ! Status of subroutine calls 
: 3734 96 UNDER_ INDEX, ' Records right-most position of 
3; 3735 964 ! an underline character within 
: 3736 96 ! the underline buffer. 
: 3737 966 BOLD_INDEX, ! Records right-most position of 
; 3738 967 ' a character in the bold buffer 
; 3739 968 UNDER_DESC : BLOCK (8, BYTE], ! Dynamic ree descriptor for 
: 374 969 ! underlining string. 
3: 3741 970 BOLD_DESC : BLOCK (8, BYTE], ! Dynamic string descriptor for 
3 re 971 ! bolding string. 
3; 374 4 FIX_UNDER_DESC : BLOCK (8, BYTE],! Fixed descriptor pointing to 
3; 3744 97 ! trimmed portion of underline 
: 3745 974 ' buffer 
: 374 975 FIX_BOLD_DESC : BLOCK (8, BYTE],! Fixed descriptor pointing to 
3; 374 $379 ! trimmed portion of bold 
:; 3748 977 ! buffer 
; 3749 3978 CR_DESC : BLOCK (8, BYTE], ' Fixed one rae descriptor of 
: 3750 979 ' character <CR>. 
3 3751 980 RESULT_DESC : BLOCK (8, BYTE]; ! Descriptor for resulting 
: 3735 4 . ! string to be output. 
3 3754 983 ! Construct descriptor for and allocate space for the underline buffer. 
3; 3755 984 ! Initialize buffer to all blanks. Initialize fixed underline buffer 
3 P38 Rae } descriptor except for length which we compute as we procede. 
3; 3758 98 UNDER_DESC pecse ch Assi = DSCSK_CLASS_D ; ! Dynamic 
3; 3759 988 UNDER_DESC LDSCSB_DTYPEJ = DSCSK_DTYPE_T ; ! Text 
; 3760 989 UNDER_DESC CDSC$W_LENGTH] = 0 ; } Lengeh 
3 oe) 4 UNDER_DESC CDSCSA_POINTER] = 0 ; ! Unallocated address 
: 88 236 STATUS = STRSDUPL_CHAR ( UNDER_DESC ! Resulting descriptor 
3 3764 99 -LINE“LENGTH ' Length neede 
; 765 99% UPLIT~(BYTE (* "))); | FiLT character 
: re 44 F IX_UNDER_DESC ps css CLASS? = DSCSK_CLASS_S ; ' Fixed 
: 3768 99 FIX_UNDER_DESC CDSCSB_DTYPE] = OSCSK_DTYPE T ; ! Text 
: 4 , 238 FIX_UNDER_DESC CLDSCSA_POINTER] = .UNDER_DESC CoscSA_POINTER) ; 
| 
| 
| 
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Voe~000 DO_ATTR = Handle bold and underlining 1228 Sep 71386 96:98 VMSLIB SRE SSCREEN O3244 “ (30) 
; 377 4 e BOLD_DESC (DSC$B pret = a DTYPE_T ; ! Text 
; 377 4 BOLD-DESC [LDOSC$WILENG : Lengrh 
5 f ? ? 9 BOLD-DESC CDSC$A_ pe TER 20; ! Unallocated address 
; 37 § 4011 STATUS = STRSDUPL_CHAR ( aPye DESC ' Resulting descriptor 
; 37 1018 INE_ OF ENGTH i Length needed 
; rt 4013 UPL IT"(BYTE (* '))); | FELT character 
; 3786 4015 FIX_BOLD_DESC paces cL Assy = pecan cL Ass. : : fined 
3; 3787 $218 FIX_BOLD_DESC LDSC$B_DTYPE) = DSCS$K_DTYPE 
$ res reid tA FIX_BOLD_DESC CDSCSA_POINTER] = .BOCD_DEST "rbscsa. POINTERS ; 
: +50 4019 1+ 
: 3791 4020 i Initialize indices into BUFFER. These are the relative positions of 
: 379 4021 i the right-most underline char, and right-most ‘‘char-for-bolding’’. 
3 let ‘8 ¢ a They may get reset as we proceed with loop below. 
3; 3795 4024 BOLD_INDEX = -1; 
: 3796 4025 UNDER_INDEX = -1; 
: 3797 4026 
; 3798 4027 + 
; 3799 4028 ! Loop go y all the attributes bytes regetntng. building carriage 
:; 3800 4029 ! returns an propery posts taney copies of the original text that 
; 3801 4030 ! needs to be bolded. For e ytige. we build a copy of he original 
; 380 4031 ! text that contains blanks in all positions except those to be 
; 380 res} ! underlined. These cells will contain an underscore. 
: 3804 403 ! We manual ly break out of the loop when there are no more non-zero 
; 3805 4034 ! attribute bytes to process. 
: 3806 4035 - 
3 $B55 4036 LOC_FNZ = ..FNZ ; - 
; 3808 4037 BR = . «BYTES “REMAINING ; ! Initialize local copy 
; $815 4038 WHILE -1 
: 3810 4039 DO 
; 3811 4040 BEGIN ! Overall loop 
; $518 4041 LOCAL 
; 381 rt a INDEX; ! Local index into underline buffer and 
; 3814 404 ' bold aut rer 
3; 3815 4044 INDEX = .TCB CSCRS$W gH : 
: 3816 4045 IF .LOC_ FNZ CSCRS$V WONDERLINE Fai” ; 
; 3817 404 THEN 
; 3818 4047 4 BEGIN : Under\ tates peoded 
3; 3819 4048 4 UNDER_INDEX = . INDEX Right-most under line 
; 3820 4049 4 .UNDER_DESC CDSCSA_ Pointend® + . INDEX = 2C'_' ; 
3 Boe £829 END; ! Under lining needed 
; 38 : £0236 IF .LOC_FNZ CSCR$V_BOLD) EQL 1 
; ase 405 THEN 
3; 3825 4054 4 BEGIN SACpotate Ri 
; 38 § 4055 4 -BOLD_DESC CbSeSA PO Wier 
; ; $028 4 ‘oon - - INDEX) 4 
; 3828 4057 4 BOLD_INDEX = INDEX Right-most bold 
3; 3829 $238 END; '"Bolding sealed 
: 3830 405 
3 ; 1 4060 My -1 
: : 4061 is ” Lot F 2, ' to next attribute byte 
3 th 2 $6 SKC. URE ner (HULL), toc JFNZ; BR, LOC_FNZ); 
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Woe e000 DO_ATTR = Handle bold and underlining 1o-8eR- 1 3Be 96:98:15 VMSLIB.SRCISCREEN.B32; ° 498 
; 3835 4 $e THEN : 
: é ; d 82 END Sh rall t 
Py Py 3 vera 00 ; 
; 8 4067 : 3 
; 3839 4 rt: + 3 
; Pky £838 ; Calculate true Lengths of underline and bold buffers. : 
3 Bre 4071 FIX_UNDER_DESC CDSCSW_LENGTH] = .UNDER_INDEX + 1 ; : 
; 384 t076 FIX-BOLD_BESC CDSC$wW_CENGTH)] = .BOLD_INDEX + 1 ; 3 
: 3844 407 F 
; 3845 4074 + : 
; tk t852 } Build composite string by concatenating the pieces. : 
; ak: 4079 RESULT_DESC CDSCSB_CLASS] = DSCSK_CLASS_D ; ! Dynamic 5 
: 3849 ret RESULT_DESC [LDSCSB_DTYPEJ) = DSCSK_DTYPE_T ; ! Text é 
; 3850 407 RESULT_DESC CDSCS$W_LENGTH] = 0 ; ' Length $ 
; Sees ret RESULT_DESC CDSCSA_POINTER] = 0 ; ! Unallocated address ; 
: 3pe§ rest) CR_DESC pe cee CLASS) = DSCSK_CLASS_S ; ! Fixed é 
: 3854 408 CR_DESC CDSCSB_DTYPE) = DSCSK_DTYPE_T ; ! Text ; 
; 3855 4084 CR-DESC COSC$WILENGTH] = 1; i Length = 1 ; 
; 3896 4085 CRIDESC CDSC$A~POINTER] = UPLIT (BYTE (CR)); ! A <CR> : 
: 3857 4086 ; 
; 3858 4087 BEGIN ; 
: 3859 4088 LOCAL 3 
; 3860 4089 DESC : BLOCK (8,BYTE); ; 
> 3861 4090 DESC CDSC$B_DTYPE] = DSCS$K_DTYPE_T; ; 
: a8 4091 DESC LDSC$B_CLASS] = DSCS$K_CLASS_S; : 
; 386 409 DESC COSC$W LENGTH] = ..LINE_LENGTH; : 
; 3864 4093 DESC CDSCS$ATPOINTER] = .LINE-ADDR; ; 
; 3866 4095 STATUS = STRSCONCAT ( RESULT_DESC, ' Resulting string : 
; 3867 409 DESC ' et ee string 3 
; 3868 409 CR_DESC, i a <CR> ; 
; 3869 4098 FIRX_UNDER_DESC, ! Underlining string 5 
; 3870 4099 P ' A <CR> 3 
: 3871 4100 FIX BOLD_DESC, ! Bolding string copy 1 3 
; af6 4101 CR_DE ' A <CR> : 
; 387 410¢ FIX BOLO_DESC, i Bolding string copy 2 ; 
: 3874 410 R_DESC, ' A <CR> 3 
; 3875 Bf FIX_BOLD_DESC ) ; ! Bolding string copy 3 : 
5 576 4105 END; : 
; 387 $106 
: 378 213 '¢ 
3; 387 4108 ' Output composite string we've built 
; 3880 4109 te 
3; 3881 ait STATUS = RMS_OUTPUT ( .TCB, RESULT_DESC ); 
; Hy cii¢ '¢ 
: Bae 411 ! Give back strings used 
: 5 4114 !e 
3 ty; 4115 
; 388 4116 LIBSSFREE1_DD ( UNDER_DESC ) ; 
: 144 411; LIBSSFREE1_DD ( BOLD DESC ) ; 
; 411g LIBSSFREE1~DD ( RESUCT_DESC S ; 
: Soy 411 RETURN (,STATUS) ; 
; 3891 4120 END; ! End of routine DO_ATTR 


————————————_ 


Ue, 
LIBSSCREEN LIBSSCREEN = Screen Management 300 -1984 AX-11 Bliss=-32 V4.0-74 7 
oes006 DO-ATIR = Handle bold and underlining RES TAR ee mn Crt hg te Pee Page 10 
20 00E14 P.AAW: .ASCII \ \ ; ; 
E1 BL 3 3 
20 OOE18 P.AAX: <ASCII \ \ ; ; 
0€1 -BLKB 3 ; 
OD OOEIC P.AAY: BYTE 13 ; ; 
O7FC DO_ATTR:.WORD Save R2,R3,R Ra. ARS R6,R7,R8,RI,R10 > 3894 ; 
5A 000000006 00 9€ O02 . OVAB STRSDUPL_CHAR, RIO : ; 
9 000000006 0 9 990 OV LIBSSFREE1_DD, R9 : ; 
E C 19 SUBL2 #56 sp : : 
30 AE 0200090 F DO 0001 MOVL  #34471936, UNDER_DESC : 3989 ; 
4 AE p4 0018 CLRL_ —«sUNDER_DESC+4 : 3990 : 
D6. «AF. «OOF ~OOOTE PUSHAB P.AAW™ : 3994 : 
10 AC DD 00021 PUSHL LINE LENGTH : 3993 ; 
3 AE 9F 00024 PUSHAB UNDER DESC : 3992 : 
6A 9 FB 0027 CALLS #3, STREDUPL.. CHAR : ; 
58 0 DO 0002A MOVL RO STATU : ; 
22. AE 0196 BF BO 000 p MOVW #270, FIX _UNDER_DESC+2 : 3997 : 
24 = AE 4 AE 00 000 MOVL UNDER _D DES $C+4, FIX _UNDER_DESC+4 : 3998 ; 
28 «AE 020000 8F DO 00038 MOVL  § #34477936, BOLD_DESC : 4008 ; 
¢ AE D4 0040 LRL BOLD DESC+4 : 4009 ; 
BS AF 9F 0004 PUSHAB + 4013 ; 
10 AC DD 00046 PUSHL Line -LENGTH + 4012 ; 
30 AE 9F 00049 PUSHAB BOLD + 4011 : 
6A 03 FB 0004C CALLS # STREDUPL._ CHAR : i 
58 50 00 O004F MOVL R U : 3 
1A AE 010€ 8F B80 0038 MOVW #270, FIX BOLD_DESC+2 : 4016 : 
1C AE 2C AE DO 0005 MOVL BOLD DESC?4, FIX_BOLD_DESC+4 : 4017 3 
5 01 CE 0005D MNEGL “i, BOLD_ INDEX + 4024 ; 
56 01 CE 90060 MNEGL UNDER INDEX > 4025 ; 
51 08 BC DO 0006 MOVL 4 LOC "FN : 4036 F 
50 04 BC dO 00067 MOVL § @BYTES_REMAINING, BR + 4037 : 
54 O¢ AC p 0068 MOVL 1¢ > 4044 ; 
32 C AG : 0 $f 1$: MOVZWL 12(R4) INDEX ; : 
5 50 C2 00073 SUBL2 ‘ 3 ; 
0c 61 p E1 00076 BBC a3 (Lee. FNZ), 2$ + 4045 : 
6 DO 0007A MOVL_ INDEX, UNDER_INDEX > 4048 : 
53 ‘ 4 AE ci 07 ADDL3 UN UNDER DESC#4; INDEX, R3 + 4049 : 
é F BF 9A MOV ZBL ; ; 
61 €9 2$: BLBC to Of _FNZ), 3$ : 4052 ; 
55 2 c “a 9 ADDL3 BOLD DESC+4 INDEX RS : 405 3 
3 4 ac C1 000 § ADDL3 LINE-ADDR, INDEX, R3 : 4056 : 
é D 9 MOVL tr 3)> (RSS ; ; 
7 : D % MOVL INDEX, BOLD_INDEX : 4057 ; 
D 3$: DECL R : 4060 : 
1 06 98 INCL i y > 4061 : 
61 50 6 90 SKPC ay (LOC_FNZ) : 406¢ : 
A TSTL : 406 
A A BNEQ 3 
aos 1A Bape, ABRAS fh UMBRO DES et 
i ° Ps 
08 AE 020E0000 8F DO OO0AF MOVL geet RESULT_DESC : 1055 


LIBSSCREEN LIBSSCREEN = Screen Management 1b-5e Se AX-11 Bliss-32 V4.0-74 Page 108 
rire DO_ATTR = Handle bold and underlining 1 300-1380 9¢: gf: 18 VMSLIB. SRC SCREEN WiB3oe4 ° (483 
AE 04 00087 CLRL SC+4 : 4080 
19 AE aa) fr p) if OVE ni peeret. fe DESC : 4084 
02. AE 01 F 8B ¢ MOV 7) 0. peste + 4090 
6E 5 BC RB ¢ MOVW § @LINE_LENGTH, DESC + 409 
04 AE 14 AC D MOVL _—_LINE_ADDR, DESC+ : 409 
18 AE 9F 000D PUSHAB FIX BOLD_bES + 409 
14 AE 9F OOODA PUSHAB CR_BESC ; 
20 AE 9F 000DD PUSHAB FIR BOLD_DESC : 
fs AE 9F E0 SHAB CR _BESC ; 
AE 9F OOOE PUSHAB FIR BOLD_DESC : 
4 AE ot ES PUSHAB CR_BESC : 
8 AE 9F OOOE PUSHAB FIR_UNDER_DESC : 
C AE 9F OOOEC PUSHAB CR_BESC : 
0 AE 9F OOOEF PUSHAB DESC : 
C AE OF OOFe PUSHAB RESULT_DESC ; 
000000006 06 A FB OOOF CALLS #10, STRSCONCAT : 
- 08 ie BP Sore PUSHAB Regury Desc : 4110 
0C AC DD 0010 PUSHL TCR” : 
0000v cE 09 FB 6198 CALLS he. RMS_OUTPUT ; 
8 dO BORA OVL R TATUS 3 
30 AE 9F 0010D PUSHAB UNDER DESC + 4116 
an SE SERRE GARASS. El tgF REET fan 
69 01 FB 00116 CALLS OP PBSSFREE? _DD 3 
08 AE 9F 00119 PUSHAB ne by LT DESC : 4118 
69 01 FB OO1IC CALLS  LLBSSFREE' _DD F 
50 58 DO OO11F MOVL Stat + 4119 
04 00122 RET > 4120 


; Routine Size: 291 bytes, Routine Base: _LIBSCODE + 0E1D 


; 3892 4121 1 !<BLF/PAGE> 


-——_—_—_— 
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varetitt RMS_OUTPUT = Write string via RMS 1 =300 7138 96:98:18 VMSLIB. RESSCREEN B3204 . 3%} 
> 3894 41 ; 1 XSBITL_ 'RMS_OUTPUT = Write string via_RMS' ; 
; 3895 41 1 ROUTINE RMS_OUTPUT ( TCB : REF BLOCK C,BYTE) ; 
3 896 4104 1 STRING : REF BLOCK C,BYfE) ) = ; 
; 389 4125 1 !4+ ; 
; 3898 4) 1 ! FUNCTIONAL DESCRIPTION: ; 
: 3899 4) zz 3 
:; 3900 4128 1! This routine writes the specified string to he terminal using ; 
; 3901 4129 1! MS. If an_RMS file is open for the stream it will be used, : 
; 4 } ? ! else LIBSPUT_OUTPUT will be called. : 
; 3904 4) 1 ! CALLING SEQUENCE: i 
; 3905 41 1! ; 
: 39 a : 1 : ret_status.wlc.v = RMS_OUTPUT ( TCB.rab.r, string.rt.ds ) ; 
; 3908 41 1 ! FORMAL PARAMETERS: 
; 3909 41 74 
$ Bie }| 8 } TCB.rab.r Address of current terminal control block. 
3 at 4140 1! STRING. rt.ds Address of fixed string descriptor of output 
; 391 4141 1! string. 
; 3914 rhb | 1! 
; 3915 4145 1°! IMPLICIT INPUTS: 
: 3916 4144 1 | 
3; 3917 4145 1! NONE 
; 3918 4146 1! 
; 3919 4147 1°! IMPLICIT OUTPUTS: 
: 3920 4148 1! 
; 3921 4149 1! NONE 
3 $ ; 4150 1! 
3; 4151 1 ! ROUTINE STATUS: 
; $9 4 $136 1! 
; 3925 4155 1! Status returned by RMS PUT, LIBSPUT_OUTPUT, or users output 
: 3926 4154 1! routine. 
3; 3927 4155 1! 
: 3928 $128 1 ! SIDE EFFECTS: 
: 3929 4157 1! 
; 39350 4158 1! String will be output. 
3; 3931 4159 1 !-- 
3 836 4160 1 
3; 393 4161 BEGIN 
3; 3934 $196 
: 382 416 BUILTIN 
; 39 4164 CALLG; 
3 TA 4165 
; 39 $198 LOCAL 
; Bzh rh 4 STATUS; ! Status to return to caller 
3 3941 rh 4 IF .TCB CSCRSL_RTNADDR] EQL 0 ! If no user-specified call-back 
: o4 4170 THEN 
3; 394 4171 BEGIN ! We do ouptut 
3 3944 oie LOCAL 
: Bez rs RAB : REF $RAB_DECL; 
3; 394 4175 IF .TCB CSCRS$L_RAB) EQL 0 ! If file not open on channel 
: Ree rete THEN 
3: 394 4177 4 BEGIN ! Use LIBSPUT_OUTPUT instead 
; 3950 4178 4 STATUS = LIBSPUT_OUTPUT ( .STRING ) ; 
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kK 7 
- Screen Management 16-Sep-1984 02:28:1 AX-11 B 
- Write string via RMS 12-808- 1383 ¢: 4:4 VMSLIB. 
euse’™ ! Use LIBSPUT_OUTPUT instead 

BEGIN } be via RMS 

RAB = .TCB CSCRSL_RABI; 

RAB RABSW_RSZ =". STRING COSCS$W_LENGTH] ;! Length of string 

RAB LRABSL_RBFJ = POINTER] ; ! Addr of string 


$W_ 
“STRING CDSCSA~ 
$_ 


WHILE SPUT (R gat RMS$_RSA DO SWAIT (RAB = .RAB ) ; 


AB = ,RAB) 
STATUS = .RAB CRABSL_STS 
ND ; ' Do via RM 


: ! Do $s 
END : We do output 
ELSE 
BEGIN ! User does output 
LOCAL 
CHANNEL ! Channel as a longword 
PARM_LIST : VECTOR (5); ! Parameter List for call-back routine 
CHANNEL = .TCB CSCRSW_CHAN] ; ! Extract channel as longword 


+ 
! Bliss must be forced to generate the prager CALL with RO (not 
the contents of RO) being moved to STATUS. 


PARM_LIST (0) = 4; ' number of args 
PARM-LIST [1] = .TCB CSCRSL_RTNARG]; | user-supplied arg 
PARM_LIST ¢ = CHANNEL; ! addr of channel 
PARM_LIST = .ST ING: ' addr of output string 
PARM-LIST (4) = TCB CSCRSL_STREAM); i addr_of stream 
STATOS = CALLG (PARM_LIST,~.TCB CSCRSL_RTNADDRI); 
' call user routine 
END; ! User does output 
RETURN (.STATUS ) ; 
END; ! End of routine RMS_OUTPUT 
.EXTRN SYSSPUT, SYSSWAIT 
003C 00000 RMS_OUTPUT: 
WORD Save R2,R3.R4,R5 
5E 18 C2 000 2 SUBL2 #24, SP 
24 8 AC D 0 MOVL STRING, R4 
2 . - 6 9 MOVL CB, RO 
8 A2 D TSTL 56(R2) 
40 1 BNEQ 4$ 
7% =A p 1 TSTL 116(R2) 
fl 1 BNEQ 1$ 
DD 0001 PUSHL R4 
000000006 00 1 Fe 1 CALLS #1, LIBSPUT_OUTPUT 
5 7% 8602 OD 1$: MOVL Fecr2) RAB 
32 A 64 8B MOVW (R4), 34(RAB) 
Az 06 AS OD A MOVL 4 (R45, 40(RAB) 
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; Routine Size: 120 bytes, Routine Base: 


; 3988 4216 1 !<BLF/PAGE> 
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AX=11 Oh ieee thel V4.0-74 
VMSLIB.SRCJSCREEN.B32; 


ih” sysspur 
RO, i 
3$ 

RAB 

a. SYSSWAIT 
(RAB), STATUS 


fe Bin CHANNEL 


(Ro) 
RO pant ist a5 
STATUS, us 


FS Se oF of ot ot ot ot Dt ot 
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yoe2000 SET_CURSOR = Create set Goreer sequence 12286871382 96:98:18 VMSLI8.SRCJSCREEN.B32; 435 
; 3990 4217 1 XSBITL_ ‘SET_CURSOR = Create set cursor sequence’ 
:; 3991 421 1 ROUTINE SET_CURSOR ( 
; 838 421 1 TCB_ : REF BLOCK C,BYTE), 
; 399 4 1 LINE_NO, 
; 3994 4221 1 COL_NO, 
; 3995 4 § 1 BUFFER 
; 99 4 ; . CUR_SIZE 
: 3998 4225 1 144 
: 8444 : 8 : FUNCTIONAL DESCRIPTION: 
: 4001 4 4 1! This routine generates the epcape sequence for a set cursor 
; 400 4 +! osition and appends _ string to a gtyen output buffer. No 
; 400 4230 1! uffer overflow checking is done as it is assumed that the cursor 
: tote ? 1 : will be the first thing in the buffer. 
: 4006 4 § t CALLING SEQUENCE: 
: 4008 4235 1} ret_status.wlc.v = SET_CURSOR (TCB.rz.r, LINE_NO.rl.v, COL_NO.rl.v, 
; 4009 4236 1! BUFFER.mt.r, COR_SIZE.ml.r) 
: 4010 4237 1! 
: rete : : : FORMAL PARAMETERS: 
: 401 4240 1 | TCB.rz.r addr of Terminal Control Block 
: 4014 4241 1! LINE_NO.rl.v Line number 
3; 4015 4 ef 1! COL_NO.rl.v column number 
; 4016 42435 1! BUFFER. mt.r addr cf buffer 
: ret 4 ? rf : CUR_SIZE.ml.r # bytes currently in buffer 
: 4019 4246 { IMPLICIT INPUTS: 
: $881 1569 1 | sete 
: 49 § 4 50 | IMPLICIT OUTPUTS: 
: 49 5 é 38 | NONE 
; 49 ; 4 34 | COMPLETION STATUS: 
> 4029 4256 1 | 
3 Pets 2 44 ' SIDE EFFECTS: 
: 40 4259 1! NONE 
: 49 § 4260 1 ji-- 
: 4034 4261 1 
3 $8 5 ? $¢ BEGIN 
: 49 7 4264 LOCAL 
3 4 4265 VTIOOCTL : VECTOR C1, 8] INITIAL ( 
; 4039 4 66 DSC$k_DTYPE T *24 + DSC$K CLASS S *16 + 10, 
3 rte 426 UPLIT™( BYTE (ESC, LB, *!0L;!UL%, VT100_SC ))), 
: 4041 4268 ' dsc for cvt to vt100 sequence 
3 rk 4 4 ' FAO control string 
: 4 4 9 FREE_ADDR : REF VECTOR C,B8YTE), ! addr of Ist free byte 
3; 4044 427 TERM_TYPE; ' terminal type 
3: 4045 427 
: 4046 427 


ee eee Page {13 | 
4.05749 (32 
3 ee sdesszke ts: 833 ; 
No? VMSLIB SRE ISCREE 
1e-8eb- 1882 Peighil8 =| ANSI 
ag even free byte : 
CREEN = Screen t cursor seq of next fre : 
Wee MERI: ER co Toe we --Cun,si2ts | addr | 
VO4~ FREE _AD i REIGN : 
4274 . YPE] EQL VTFO : 
3 4047 25 B CSCRSB_T ; 
: 208 155 wwe ae TYPE); : 
408} 1555 A SE TERM_TYPE = .TCB [SCRSB_ reas a 
: NOWN TO V : 
i038 “58 CASE .TERM_TYPE FROM UNK : 
: 208s 1588 ast ! do nothing : 
3 £828 4g8 CUNKNOWN): : : 
© 4 , ffer Ps 
; 4 4 ize of bu ffer : 
: 2089 4 ay CvT05): 1 E+ ?; | update ye oat ow senuense into bu 
Be ie ARIE top OU SRGct 7 | gota, ; 
« 4 - = R 0 ® ; s 
406 4290 PREEmabpn FSS cs toons EN : 
: 406 4291 FREE ADDR = o ; 
: 2064 459 EREE-ADDR bed © 8: 
: 4065 g FREE_ADDR ; : 
: e068 1594 PREE ADDR bay 5 8: No: ; 
: 4067 4595 PREE-ADDR B23 = che »COL_NO; : 
> 4068 4296 FREE ADD : 
: 1076 4 38 co ize of buffer ffer é 
. : nt siz buf fe : 
2093 2800 VTS IN cg” pditon! beam BA : 
: 407 01 - CUR SI "= €S 
; 4074 4302 PREEWADDR 9 ViSESci NO; 
3 4075 430 FREE_A DR = (B+. OL No: 
; 4076 304 Hd By de § = CB + .COL_NO; 
ees aoe 
; 4079 4309 
+: ar: 2 rn 
: 488 ' CVT ARGS : VECTO f. fa* eytes. 
> 4084 4 i 0 ane BLOCK BY 
Be ie EA 
: 4089 4 1H yh Ate? ee pscée pT vPE) - area's “BUFSIZ) - ..CUR_SIZE); 
: O81 ; 1 FAO BUFFER BSCSUTLENG IAI’ = (.1¢8 Ese ADDR 
et PS=Buren EBEERCHEI | 
e 4 ~ buf er. 
: b09s 2358 "Convert to ASCII characters and move 4 = FAO_LEN, 
i 4096 4304 | Sonver (CTRSTR = Paste” CVT -ARGS) tring 
: t099 359 rOSTATUS. TREN Ae AA: LEN; | add Lengt 
; i 2 g IF NO! oie .»CUR_SIZE + 
4 
; 41 0 
3 41 : . 


ce 
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! End of routine SET_CURSOR 
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LASSSCReeN LIBSSCREEN = Screen Management 1b-sep-1 1386 06:48 15 AX-11 Bliss-32 V4.0-742 
v04-000 SET_CURSOR = Create set cursor sequence 1e-Sep- 984 4:4 VMSLIB.SRCJSCREEN.B32;1 
000000006 00 9° Fe CALLS #4, SYSS$FAOL 
0 : BLBC STATUS, 9$ 
oF MOVZWL _LEN 
14 a €0 0009 ADDL2 RO, acuR SIZE 
5 01 OD 4944 7$: MOVL »R 
04 OOF RET 
50 D4 Bea 8$: CLRL RO 
04 OOOA2 9$: RET 
; Routine Size: 163 bytes, Routine Base: _LIBSCODE + OFC2 


; 4115 4342 1 !<BLF/PAGE> 


Elapsed Time: 
Lines/CPU Min: 30 
Lexemes/CPU-Min: 19800 
pete Used: 

Compila 


LCL, 
tL, 


1986 98:90:03 


End of module LIBSSCREEN 


REL, 
REL, 


Pages 
Mapped 


581 
? 


AX=1 . Page 116 


1 Bliss-32 V4.0=-74 
VNSLIB SRE ISCREEN 03071 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:SCREEN/OBJ=OBJ$:SCREEN MSRC$:SCREEN/UPDATE=(ENH$: SCREEN) 


Dd. 8 
LIBSSCREEN LIBSSCREEN = Screen Management 16-Sep- 
voe~000 SET_CURSOR = Create set fursor sequence 17-338: 
: 4117 4 rh 1 END ! 
; 4118 4344 4 
3; 4119 4345 0 ELUDOM 
SCRSE 
LIBSU 
LIB$S 
L1B$D 
; PSECT SUMMARY 
: Name Bytes Attributes 
> _LIBSDATA 12 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; _LIBSCODE 4197 NOVEC,NOWRT, RD, EXE, SHR 
H Library Statistics 
e! Targgh wire a RE iat ny Sie We ae Symbols -------- 
3 File Total Loaded Percent 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 37 0 
; _$255SDUA28:CVMSLIB.OBJISCRLIB.L32;1 62 49 79 
; COMMAND QUALIFIERS 
Size: 4057 code + 152 data bytes 
Run Time: 1:24.8 


1:29.4 


264 pages 
tion fonplete” 
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GIT 
NFI 


I 
F 


DI 
CO 


Ndi, AH-BT1i3A-SE 
ViwW VAX/VMS V4.0 
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